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AN ANALYSIS METHOD FOR TWO-DIMENSIONAL 
TRANSONIC VISCOUS FLOW 

By Paul C. Bavitz 1 
Langley Research Center 

SUMMARY 

A method for the approximate calculation of transonic flow over airfoils, including 
shock waves and viscous effects, is described. Numerical solutions are obtained by use 
of a computer program which is discussed in the appendix. The importance of including 
the boundary layer in the analysis is clearly demonstrated, as well as the need to improve 
on existing procedures near the trailing edge. Comparisons between calculations and 
experimental data are presented for both conventional and supercritical airfoils, emphasis 
being on the surface pressure distribution, and good agreement is indicated. 


INTRODUCTION 

Higher cruise speeds with improved transonic performance are currently being 
demanded of new aircraft designs. A fundamental requirement in achieving these goals 
is the development of an effective method for the aerodynamic analysis of transonic air- 
foil sections, including viscous effects. The approach most widely used to account for 
viscous effects in an analysis was first suggested by Prandtl. The boundary-layer dis- 
placement thickness is added to the original geometry and produces an equivalent inviscid 
shape which represents the displacement of the inviscid-flow streamlines by the boundary 
layer. This procedure has been successfully applied to compute incompressible viscous 
flows with compressibility corrections (ref. 1, for example), but has never been incorpo- 
rated with a fully compressible inviscid analysis, including embedded shock waves, as is 
herein attempted. (Similar efforts are, however, currently underway at the Courant 
Institute of New York University.) 

The requirement for a viscous transonic analysis stems from the dramatic effects 
that the boundary layer has on shock location and lift in transonic flow, as compared with 
the innocuous results it produces in incompressible flow. Unfortunately, the region con- 
trolling most of these effects is near the trailing edge, where no theory yet exists to model 
the correct behavior of the flow. Because Prandtl’s method is not valid, in general, near 

^Grumman Aerospace Corporation; work done as Industry Research Associate at 
Langley Research Center. 



a separation point, empirical procedures are required to generate the effective inviscid 
shape near these regions. Recent advances in both inviscid and boundary -layer analysis 
methods for compressible flow (ref. 2) however prompted this somewhat crude attempt at 
a combined solution. Specifically, this report defines an engineering technique, in the 
form of a computer program, to predict airfoil performance at transonic speeds, the 
method is a combination of existing analytical methods which have been modified by 
empirical formulations where necessary. 

SYMBOLS 

a speed of sound 

aj,G,L empirical functions in boundary-layer analysis 

C n pressure coefficient 

c airfoil chord 

c d section drag coefficient 

Cj section lift coefficient 

c section normal-force coefficient 

n 

H shape factor 

K factor defined by equation (7) 

M Mach number 

M d(J drag-divergence Mach number 

p pressure 

q2 = u 2 + v 2 

R Reynolds number 

r ,8 polar coordinates 
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recovery factor 


t i r i 

constant such that — — ■ ~ 7 

a l 


U,V,t variables (see eq. (5)) 


velocity components in x,y directions 


Cartesian coordinates 


shock location 


theoretical angle of attack 


ratio of specific heats 


displacement thickness 


rate of dissipation of turbulent kinetic energy per unit mass 


density 


shear stress 


modified velocity potential 


velocity potential 


modulus of derivative of map function 


Partial differentiation is implied when x, y, r, or 0 appear as subscripts. Over- 
bars and primes denote mean and fluctuating quantities, respectively, in the boundary 
layer analysis, and their absence indicates instantaneous (mean plus fluctuating) quantities. 


THEORETICAL FORMULATION 


General Discussion 


The overall problem of defining the viscous aerodynamic characteristics of transonic 
flow past airfoils is divided into three broad areas: inviscid solution, boundary -layer 
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solution, and combined iterated solution. The inviscid method consists of an iterative, 
finite -difference, numerical solution of the exact potential equation 

(a2 - - 2^ y <f xy ♦ (f - * y %y = 0 (1) 

for two-dimensional, steady, irrotational flow. The boundary -layer analysis models only 
turbulent flow and numerically solves a system of equations consisting of the mean 
momentum equation, the mean continuity equation, and the turbulent energy equation. 

This system, after simplification, can be expressed as 

(pu) x + (pv + pv) y = 0 

<pu)u x + (pv + P'v’)uy = -P x + Ty 

i ^ 2 ^ 

(pu)(| q 2 ] + (pv + pv)(i q 2 )^ = rSy - (pv + |p q 2 V + | P’q 2 v'j 

t iri (y - 1)M 2 t(t/p)^ 

-pe - - — - — — •= 

ua^ 

J 

The combined solution employs an iteration scheme to link these two analyses. This 
procedure is initiated by computing the inviscid pressure distribution about the physical 
airfoil and then describing a boundary layer based on this distribution. The boundary- 
layer displacement thickness, adjusted by the empiricism mentioned in the introduction, 
is added to the airfoil to produce an equivalent inviscid shape. Then a new inviscid cal- 
culation is performed. The resulting pressure distribution is used to redefine the bound- 
ary layer, and so forth, until the iterations converge. An illustration of the fundamental 
features is shown in figure 1. 

The individual analysis methods were selected from several available computational 
schemes not only by examining their capability to correlate with data but also by examin- 
ing any specific characteristics which would be desirable in the combined solution. For 
example, the boundary-layer analysis method provides excellent correlation with the 
experimental displacement thickness on the upper surface of an airfoil forward of about 
90 percent chord and poor correlation near the trailing edge. Although it underpredicts 
the displacement thickness in this region, it is consistent in doing so. By recognizing the 
inherent failings of any boundary -layer analysis near the trailing edge, particularly on a 
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supercritical airfoil, and by realizing that some modification will be necessary, it 
becomes obvious that consistent results can only be derived by starting with a method 
which is, in some sense, consistent. Only brief descriptions of the inviscid and boundary- 
layer analytical methods are included in this paper; a more detailed explanation can be 
found in the appropriate references. However, the combined solution, the empiricism, 
and the requirements for convergence are discussed in detail in the next section. 


Inviscid and Boundary- Layer Analyses 

The method used to analyze the inviscid flow was developed by Garabedian and Korn 
(ref. 3) and it implements a rapidly convergent transonic finite-difference scheme defined 
in reference 4. A similar analysis was also developed by Jameson (ref. 5). The coordi- 
nate system, suggested by Sells in reference 6, consists of mapping the interioi of the 
unit circle conformally on to the exterior of the airfoil with the point at infinity corre- 
sponding to the origin in the circle plane. The modulus of the derivative of the map func- 
tion w is calculated by using a finite -difference approximation based on uniform mesh 
sizes in r and 6. As an initial guess of the conformal mapping, a Fourier series is 
computed at equal intervals on the unit circle. 

In this coordinate system, equation (1) becomes 


a 2 - r2uT 2 c/> e 2 y ee - 2r 4 ur 2 ^ r * 0r + ^a 2 - rV 2 ^ 2 )*^ + 


rV“V +r V 


- 2r 3 u >~ 2 <pQ<p r 


$ + 
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4 o> c v' 3 (<i> 2 + r 2 <pj) + r(a 2 + r 2 u)~ 2 (p 2 - 2r 4 aT 2 <4 2 




= raf ^ sin (0 + ot) + ra) p + a )J 


( 3 ) 


where the singularity at the origin is removed by the substitution 


4 _ ± - cos(g + a) ( 4 ) 

r 

The circulation is determined at 0 = 0 by using the Kutta-Joukowski condition; that is, 
the velocity at the trailing edge is required to be continuous. A finite -difference scheme 
related to that of reference 4 is used to solve equation (3) in a uniform grid with mesh 
sizes Ar and A6 over the range OS0^2 tt and OSrSl. Successively refined 
grids are employed because (1) the major features of the flow, especially the circulation 
and shock location, are well approximated on a coarse grid so that the coarse solution 
provides good initial conditions for the next refinement, and (2) the asymptotic convergence 
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rate slows down tremendously with decreasing mesh size so that improved initial esti- 
mates for the potential field are extremely desirable. Also, an artificial viscosity 
parameter is introduced in an attempt to decrease the truncation errors, which are other- 
wise first order at supersonic flow field points. (It should be noted that this parameter 
applies only to the inviscid scheme, and it has nothing to do with the boundary-layer 
effects in the overall solution.) A sufficient amount of artificial viscosity guarantees that 
the correct entropy inequality is imposed on the solution. Shock waves arise naturally , 
and the process is continued until the desired level of convergence is attained. 

The boundary-layer analysis method was developed by Bradshaw and others. (See 
refs. 7 and 8.) It is based on the turbulent energy equation which is transformed into a 
differential equation for the turbulent shear stress by defining three empiiical functions 
which relate the turbulent intensity, diffusion, and dissipation to the shear stress profile. 
The major hypotheses are (1) the usual boundary-layer approximation, which implies no 
static-pressure difference across the layer; and (2) the turbulence structure is essentially 
unaltered by compressibility, as suggested in reference 9. Furthermore, equations (2) 
are derived from the exact equations for compressible flow by using typical order-of- 
magnitude arguments, as described in reference 8. The accuracy of the method thus 
depends almost entirely on the definition of the empirical functions aj, L, and G, and 
the final form of the equations is 
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for the variables U, V, and T where U - u, V = v + and t - — just for this set 

P P 

of equations. The method of characteristics is used to obtain the solution, and the empir- 
ical data inputs are those suggested in reference 8. The empirical functions mentioned 
previously are solely related to the boundary-layer analysis and should not be confused 
with any empiricism necessary to combine the inviscid and viscous analysis methods. 
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CALCULATION PROCEDURE 


The inviscid-flow and boundary -layer analysis methods discussed in the previous 
section use computer programs to determine numerical solutions. The combined analysis 
is also accomplished by using a computer program whose basic structure is composed 
from these two separate programs. Specific details of the individual computational 
schemes can be found in references 10 and 11, whereas the important highlights of the 
overall calculation procedure follow. 

First, the airfoil coordinates are processed by computing and smoothing the slopes 
and curvatures. The mesh size is set for a fine grid (160 points by 32 points) and the air- 
foil is conformally mapped onto the unit circle. Then the mesh size is adjusted to a crude 
grid (40 points by 8 points) and the inviscid-flow— boundary-layer iteration process is 
initiated by computing the inviscid flow about the physical airfoil. This solution normally 
requires 50 to 250 cycles to converge (throughout tliis discussion, ’'cycle" refers to a 
single sweep of the computational grid within the inviscid solution and "iteration” refers 
to one pair of completed inviscid-flow and boundary -layer solutions). 

The next step is to define the boundary-layer characteristics. As input to the 
boundary-layer routine, pressure coefficients at 41 equally spaced points are specified 
on both the upper and lower surface; this number is independent of the grid size used for 
the inviscid computations. A spacing of 2.5 percent chord was selected because it seemed 
to best simulate the behavior of the boundary layer near a shock wave. Since there is no 
model in the analysis for the interaction of the shock wave and the boundary layei , the 
effects of the shock wave are only accounted for in the purely classical sense. A denser 
definition of the pressure distribution, for example, every 1 percent chord, would yield 
shock-induced separation for conditions which do not warrant it; a sparser definition, 
typically every 5 percent chord, would not accurately produce the expected hump in the 
boundary -layer displacement thickness near the shock. Based on results to date, this 
procedure seems to be adequate and indicates that an interaction model might not be 
necessary. 

Then, before the boundary layer is computed, the pressure distribution is modified 
by an empirical formulation. As previously mentioned, the boundary -layer displacement 
thickness is not accurately predicted near the trailing edge, probably because of the 
neglect of normal pressure gradients and near wake effects. In fact, it is not even clear 
that a displacement-type effect will produce the appropriate streamline curvature or that 
the displacement thickness is the correct parameter to use in defining the effective invis- 
cid shape near the trailing edge (based upon discussions with R. E. Melnik of Grumman 
Aerospace Corporation). Therefore, since some adjustment is necessary, modifying the 
pressure distribution is easier than working with the displacement thickness itself. This 
procedure is implemented only to generate the input data to the boundary -layer routine, 



and the actual surface pressure distribution is still defined as the one computed by the 
inviscid analysis. Hence, the empiricism is primarily concerned with producing the 
appropriate effective inviscid shape near the trailing edge; and the resulting thickness 
distribution in this region, which is computed from the modified pressure distribution, 
may not precisely agree with a true definition of the boundary -layer displacement thick- 
ness although its general character is still preserved. 

The modifications to the pressure distribution were initially developed for super- 
critical airfoils but work equally well for conventional airfoils. First, the maximum 
pressure coefficient on the aft portion of the lower surface is held constant from its 
chord location to the trailing edge; forward of this point, the surface pressure distribu- 
tion is unmodified. On the upper surface, the most aft point at which the surface pressure 
distribution is used is determined by an empirical equation based on trailing-edge slope. 
Then, a second-degree polynomial variation for the pressure distribution is described by 
using' the pressure at this last point, the point before it, and the new trailing-edge pres- 
sure value from the lower surface. The trailing-edge slope used to compute the deviation 
point from the upper surface pressure distribution is a weighted average of the upper and 
lower surface trailing-edge slopes, two-thirds and one-third, respectively. This devia- 
tion point is designated IFIX in the computer program, and the variation of IFIX with 
slope is shown in figure 2. Approximately 12 airfoils have been analyzed in order to 
generate this variation. The integer value is used; that is, if 39.7 is computed, the last 
usable surface pressure distribution point is the 39th (95 percent chord). Figure 3 illus- 
trates typical modifications to the pressure distribution for airfoils with small, medium, 
and large amounts of aft camber. As the aft camber increases, the deviation point moves 
forward. In a crude sense, this movement is consistent with an intuitive picture of the 
region in which there are near-wake influences and in which the basic assumptions about 
the boundary -layer break down; for example, normal pressure gradients might be intro- 
duced as a result of the increased curvature. Whenever a rigorous solution is obtained 
for the problem of the interaction of inviscid flow, boundary layer, and the near wake, this 
empirical model can be replaced or modified. 

The boundary -layer characteristics are therefore calculated by using a modified 
pressure distribution; and, obviously, the problem of separation must be confronted. At 
transonic speeds, most airfoils have a small separated zone on the upper surface near 
the trailing edge and, for supercritical airfoils, occasionally on the lower surface in the 
cove region. Empirical definitions for the displacement thickness in these areas have 
therefore been included in the calculation procedure. No attempt has been made to reckon 
with shock- induced separation. However, the analytical method apparently produces a 
reasonable definition of the boundary for incipient shock-induced separation, as described 
in the next section. 
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On the upper surface, the slope of the equivalent airfoil at the separation point is 
maintained constant to the trailing edge. This requirement is imposed before the equiv- 
alent airfoil is processed so that anomalies in the curvature are resolved by the smooth- 
ing routine. For conventional airfoils, the same is done on the lower surface. Super- 
critical airfoils, however, have a favorable pressure gradient near the trailing edge on 
the lower surface; and if separation occurs, it usually is located slightly forward of the 
cove. Furthermore, separation is often predicted there only on the first boundary-layer 
calculation, and subsequent iterations are unseparated. This feature is a result of the 
relieving effect that the boundary layer has on the pressure distribution; therefore, pres- 
sure gradients are higher when the boundary layer is not yet taken into account. There- 
fore, a model was developed simply to allow the iteration process to continue without 
intending to cope with cases where the cove separation was still present in the final anal- 
ysis. Of course, a representative shape for the displacement thickness was assumed in 
order to minimize the number of iterations. However, cases analyzed to date indicate 
data correlation is good even when the cove separation persists. A third-degree polyno- 
mial variation defines the displacement thickness by using stations at (1) 10 percent chord 
before the separation point, (2) 8 percent chord before the separation point, (3) midway 
between the trailing edge and the separation point, and (4) the trailing edge. The calcu- 
lated values of displacement thickness are used at the first two stations. At the third 
station, an increment to the first value is derived from an empirical equation based on 
the difference in the pressure coefficients between the stations. The average of the fiist 
and third values is used at the trailing edge. When the lack of sensitivity of the pressure 
distribution to the geometry in this region is considered, the correlation actually is not 
surprising. The most arbitrary values in this model, those near the third station, are 
defining the y-coordinates of the equivalent inviscid shape in the region of the cove where 
the slope is approximately zero. The variations in the pressure distribution with small 
geometric perturbations in this area are insignificant. Therefore, as long as the magni- 
tudes are reasonably appropriate, qualitatively reproducing the general shape seems to be 
sufficient. This fact is further substantiated when the effects of smoothing the airfoils 
are examined. Although the coordinates are accurately maintained over most of the air- 
foil, there is a tendency for the cove region to be filled in slightly; yet, correlation with 
experimental results is not affected by these changes. In view of the arbitrary nature of 
this procedure, however, results with extensive separation on the aft part of the lower 
surface should still be treated with caution. Occasionally, separation near the leading 
edge is predicted for early iterations, and the boundary -layer displacement thickness is 
temporarily defined as zero over the entire corresponding surface. 

Once the boundary -layer displacement thickness is completely defined on both sur- 
faces, it is added to the physical airfoil normal to the surface and thereby produces an 
equivalent inviscid airfoil. The resulting shape is processed as was the original airfoil. 
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The mesh size is adjusted to the fine grid for the mapping process and then changed back 
to the crude grid for the next inviscid-flow computation. Smoothing the airfoil at this 
stage is very important because the inviscid computation is more sensitive than the 
boundary-layer analysis. Minute wiggles in the displacement thickness, which are there- 
fore present in the effective inviscid airfoil, could produce oscillations in the pressure 
distribution which would hinder the convergence of the overall analysis. 

A new inviscid solution is then computed by using tine new geometry. The resulting 
surface pressure distribution is again modified, a boundary -layer displacement thickness 
is calculated, and the effective inviscid shape is redefined. This process is repeated 
until a stabilized result is obtained. In order to make the procedure as automatic as pos- 
sible and to determine solutions quickly and inexpensively, some convergence criteria 
must be included, for it can hardly be expected that both the inviscid-flow and boundary- 
layer equations will be exactly satisfied simultaneously. Two types of criteria are 
employed, one physically and one computationally oriented, and either one or the other 
must be satisfied. The most stringent criterion would be to require the coefficient of 
pressure at each calculation point to remain approximately the same from one iteration 
to the next. However, simply imposing a small increment within which this difference 
must remain is not adequate since the pressure distribution is apt to contain a shock, A 
shift in shock location of only 2 percent, chord from one iteration to the next might be 
tolerable; the pressure coefficients at a station between these shock locations however 
could differ by 0.5. The criterion must therefore consider the local gradient in the pres- 
sure distributions in establishing an acceptable tolerance, and the form currently used is 
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"New" refers to the current pressure distribution and "old" refers to the pressure distri- 
bution of the previous iteration. The local pressure gradients at a particular point are 
simply calculated from the pressure coefficient and x-coordinate at that point and the cor- 
responding values at the computational grid points immediately on either side, as indicated 
by the plus and minus subscripts. At most stations the local gradient is less than 4.0 and 
so the pressure distribution is basically required to repeat within a level of 0.025 every - 
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where. Additionally, the lift coefficient must repeat within 0.02. This condition on the 
lift helps to limit the acceptable shock travel from one iteration to the next, for a shift in 
shock location is manifested in a change in lift coefficient. Hence, the convergence cri- 
teria associated with physical parameters are comprised of these two requirements. 

Alternately, a second type of test is included to measure the convergence of the 
overall process, and it is associated with the computational cycles of the inviscid analysis 
itself. The initial inviscid calculation starts from incompressible flow conditions. The 
remaining inviscid calculations always start from the last flow-field definition of the pre- 
vious inviscid solution; that is, they are starting from a converged inviscid solution but 
with a different geometry. As the inviscid-flow — boundary-layer iteration process con- 
verges, the changes to the effective airfoil shape diminish; and eventually, the starting 
point for a given set of inviscid calculations will be very close to the end point. There- 
fore, the number of computational cycles for the inviscid analysis has been used to mea- 
sure the overall convergence level. By excluding the initial inviscid solution, therefore, 
a solution which requires 20 computational cycles or less implies convergence. This 
formulation emerged because the other set of criteria occasionally did not indicate con- 
vergence for cases where consecutive pressure distributions appeared to be almost iden- 
tical and correlated well with experimental data. This condition occurred when the dif- 
ference in pressure coefficients from one iteration to the next did not remain within the 
specified tolerance at only one or two of the many computation points. Obviously, any set 
of convergence criteria must be somewhat arbitrary, and these have been chosen because 
they provide a good balance between quickness and accuracy. This subject is also dis- 
cussed in the appendix as it applies to the use of the computer program. 

Once the iteration process converges, the last inviscid solutionis refined; that is, 
the inviscid flow-field definition with the crude grid (40 points by 8 points) is used as a 
starting solution for calculations employing a medium size grid (80 points by 16 points). 
There is no boundary -layer calculation between these two inviscid analyses, but the pres- 
sure distribution will change slightly. For example, if it contains a shock wave which is 
spread over two mesh points, the width in x/c for the medium grid will be half the width 
for the crude grid; thereby, a stronger shock jump is produced. Therefore, the iteration 
process is reinitiated by using this new inviscid solution as the starting point. All other 
facets of the analysis procedure remain the same. Once these iterations converge, a fine 
grid (160 points by 32 points) is introduced in a similar manner. When this final set of 
calculations converges, the process is terminated and the last pressure distribution repre- 
sents the overall solution. These grid refinements are necessary because a solution with 
a coarse grid is not accurate enough (although it is desirable to start with a coarse grid 
for the reasons mentioned in the previous section). Limits are placed on the number of 
iterations performed with each of the grids in case convergence is not attained. They are 
set at six, four, and three iterations with the crude, medium, and fine grids, respectively. 
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This procedure allows a maximum of seven, five, and four inviscid analyses and six, four, 
and three boundary -layer analyses because each set always starts and ends with an invis- 
cid solution. The number of computational cycles for the inviscid analysis itself is also 
limited to 800, 500, and 300 on the crude, medium, and fine grids, respectively. If any 
limit is reached for an intermediate calculation step, that particular step is terminated, 
but the overall analysis still continues with the next step in a normal fashion. If con- 
vergence is not indicated after six iterations by using the crude grid, for example, the 
seventh inviscid solution is still refined and iterations using the medium grid are started. 
However, if the limit is reached when iterating with the fine grid or if the intermediate 
inviscid calculations diverge, the process is terminated. Interpretation of results for 
cases such as these is discussed in the appendix* 

The introduction of the crude and medium grids for the inviscid analysis, combined 
with the requirement that these intermediate inviscid-flow—boundary-layer iterations 
converge, helps to reduce total computer time. Initially, when the pressure distribution 
is not accurate because the boundary -layer effects are not fully sensed, only 320 compu- 
tation points are used rather than 5 120. When the fine grid is finally employed, the 
inviscid solution is easier to attain because the boundary layer has driven the shock wave 
forward on the airfoil and reduced the amount of lift. Thus, not only are the inviscid- 
f low — boundary- lay e r iterations with the fine grid minimized because the intermediate 
iterations have converged, but also the number of computational cycles for a particular 
inviscid analysis with the fine grid is small. Most solutions are attained in 5 to 10 min- 
utes of computer time on the Control Data 6600 series computer. 

To illustrate the effects of the boundary layer on the pressure distribution, two sets 
of sample calculations have been made. First, the result of inviscid and viscous analyses 
are compared in figure 4 for both a subcritical and supercritical case. At the low Mach 
number, the effects are minimal. This fact is consistent with the past practice of ignoring 
the boundary layer in evaluating airfoils. However, at supercritical speeds with embedded 
shock waves, the effects of the boundary layer are dramatic. The inviscid prediction 
overestimates the lift coefficient by 40 percent (75 percent is not uncommon) and the char- 
acteristics of the pressure distribution are very different. These trends primarily stem 
from the reduction in effective aft camber which the boundary layer introduces by thick- 
ening the upper surface and filling the concave region on the lower surface of a typical 
supercritical airfoil. The second set of calculations illustrate the effects produced by 
varying the Reynolds number over a range from 2 x 10 6 to 2 x 10 8 . (Obviously, any invis- 
cid analysis can show trends with variations in Mach number and angle of attack, but the 
new parameter introduced in this combined analysis is the Reynolds number.) The case 
presented is for off-design conditions on a supercritical airfoil where substantial changes 
in the important parameters might be anticipated. Figure 5 shows the pressure distribu- 
tions for eight different Reynolds numbers and figure 6 summarizes the trends in both the 
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boundary -layer and external-flow characteristics by presenting the displacement thick- 
ness, shape factor, shock location, and lift coefficient. The corresponding inviscid solu- 
tion is shown in figure 4(b). These trends, therefore, account for the interplay between 
the external flow and the boundary layer and show large variations, particularly at the 
low Reynolds numbers, as would be expected. They also demonstrate that the inviscid 
solution (corresponding to an infinite Reynolds number), at least for cases such as this, 
can be far removed even from a Reynolds number as high as 2 x 10®. This condition is 
also discussed in the next section. The slight scatter in the calculation points arises 
because each individual analysis is only accurate within a band associated with the toler- 
ances of the convergence criteria. Thus, trends must often be faired, as expeiimental 
data would be. 


EXPERIMENTAL VERIFICATION 

To discuss the results of the analytical method and to obtain an indication of its 
accuracy and capability, comparisons with experimental data are presented for several 
airfoil shapes, both supercritical and conventional. Primarily, the ability of the theory 
to predict the surface pressure distribution is evaluated. None of the airfoils herein 
analyzed was used in developing the empiricism in the method. Most of the computations 
for data correlation are made at one nominal Mach number for a series of angles of 
attack, although the actual tunnel Mach number may vary by ±0.001. The order of this 
deviation is only significant near a design point, and special note is made foi these cases. 
Similarly, the nominal Reynolds number is used, but variations of this magnitude are 
insignificant. Since the aerodynamic angle of attack for two-dimensional wind-tunnel 
tests is rarely known, the comparisons are made at approximately the same lift. In 
order to accomplish the comparisons, computations at several arbitrarily selected angles 
were initially made, and an approximate lift curve was constructed. Then the angles nec- 
essary to produce solutions at lift values where data existed were defined by interpolation. 
Since there is some scatter in the analysis resulting from the tolerances on the conver- 
gence criteria, as discussed in the previous section, exactly identical lift values were 
rarely obtained. In general, comparisons between theory and experiment at nominally the 
same lift could have differences in the coefficients of up to 0.02. Thus, both the experi- 
mental normal-force coefficient and the theoretical lift coefficient are indicated in the 
comparisons because this small difference sometimes accounts for minor discrepancies 
between the pressure distributions. However, these differences are never substantial 
enough to warrant repeating the calculation at a new angle of attack. 

The first airfoil evaluated is one designed by Korn using his inviscid complex- 
characteristics hodograph method. It was designed to be shockless at M = 0.75 with 
Cj = 0.63. It is approximately an 11.5-percent-thick supercritical airfoil whose charac- 
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teristics are well documented in reference 12. Calculations are made over a wide range 
of Mach number and angle of attack, through drag divergence, with a Reynolds number of 
about 21 x 10®. All these computations used the theoretical design coordinates (rather 
than the measured coordinates). Calibration studies of the facility which generated this 
data have produced an estimate for the effects of wall interference so that the geometric 
angle of attack can be corrected to the aerodynamic value. However, to be consistent 
with other comparisons, the theoretical results are still evaluated at the same lift as the 
data. An extensive analysis is presented in reference 13, this same data being used, in 
an attempt to account theoretically for these wall effects. Since that work employs the 
same type of inviscid solution as the method herein presented (except that the Kutta con- 
dition is not satisfied) and since it describes some details pertinent to data correlation in 
great depth, it is referred to throughout the following discussion. 

Theoretical and experimental pressure distributions are compared in figure 7 for 
increasing angles of attack at M = 0.512. As indicated by the critical pressure coeffi- 
cient (the long tick on the vertical axis), all these cases are for subcritical flow. The 
©ntii e piessure distribution is accurately predicted, starting from the typical figure-eight 
shape at near-zero lift (fig. 7(a)) to the more evenly distributed lift variation at c^ = 0.63 
(fig. 7(d)). The leading-edge peak, the central plateau, and the trailing-edge recovery are 
all reasonably defined for the four cases. Figure 8 compares pressure distributions at 
M = 0.700 for lift coefficients that range from slightly negative to almost 1.0. At the 
lowest lift, a very weak shock is present on the lower surface near the leading edge, and 
it is detected by the theory. The next case (fig. 8(b)) has a very slight peak near the nose 
on the upper surface and the correlation in this region is excellent. Although this case is 
for subcritical flow, minor irregularities in the pressure distribution such as this can 
adversely affect the overall transonic performance of an airfoil. As the angle of attack 
increases, the flow over the upper surface becomes supercritical and a well-defined shock 
wave develops. This trend is depicted in figures 8(c) to 8(e). The predicted shock loca- 
tion and the overall pressure distribution agree well with the data. However, some dis- 
crepancy occurs immediately behind the shock wave, as figure 8(e) aptly illustrates. This 
characteristic is present in all the computations with shocks. The difference in pressure 
levels in this region may be due, at least partly, to the failure of the inviscid solution to 
satisfy the correct jump condition rather than any interaction problem with the boundary 
layer. This is discussed in reference 13 which shows that neither the irrotational jump 
condition, appropriate to the potential flow equation, nor the Rankine-Hugoniot jump con- 
dition are matched. Thus, the pressure coefficient at the foot of the shock is not positive 
enough and this difference slowly diminishes over the next 20 percent to 30 percent chord. 2 

. After completing this note, a relaxation analysis routine for the full potential equa- 
lon in conservation form was developed by Jameson, and his preliminary calculations 

6 formu ^ ation apparently accounts for the discrepancy just downstream of the 
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The magnitude of the shock jump is also discussed in reference 14 by use of small- 
disturbance theory. This shortcoming of the inviscid calculation complicates the com- 
parisons because they are made at constant lift. An angle of attack slightly smaller than 
otherwise expected is therefore required to compensate for the additional local lift behind 
the shock. This smaller angle results in a corresponding reduction in lift locally over 
the front of the airfoil, as figure 8(e) also depicts. A separation bubble behind the shock 
is just beginning to form for this case and it is obviously present in the next case shown 
in figure 8(f). Any discrepancies in the correlation in the region of the bubble cannot be 
explained by this interpretation; and probably, only an interaction method can detail that 
part. Still, the overall correlation is very good, particularly in the region near the trail- 
ing edge. Both sets of calculations just described were made at the nominal indicated 
tunnel Mach number which was not corrected for blockage effects. 

A series of comparisons near the design Mach number are shown in figure 9 over a 
wide range in lift. Since the pressure distribution is very sensitive to Mach number at 
these conditions, a blockage correction of AM = -0.005 suggested in reference 13 has 
been applied; that is, the indicated test Mach number for these angles is 0.757 ± 0.00 1. 
Therefore, the computations were made at M = 0.752 for all angles. Again, the coi re- 
lation with the data is good. The characteristics of the upper surface pressure distribu- 
tions are particularly interesting; as ce increases, the shock waves start near the lead- 
ing edge with a weak jump, evolve through a multiple system, and finally locate in an aft 
position with a large strength. (See figs. 9(c) to 9(f).) To validate the. blockage correc- 
tion, the calculations in figure 9(c) have been repeated at M = 0.757, and both results are 
shown in figure 10 with the corresponding results from reference 13. The effects pro- 
duced by the shiftfin Mach number a*e almost identical for jeither analysis method. (Since 
the calculations in this report, for a series of angles, are made at one average Mach num- 
ber, fig. 10(a) compares results at M - 0.757 and M = 0.752. For this particular data 
point, the indicated test Mach number is 0.758; therefore fig. 10(b) compares M = 0.758 
and M = 0.753 because the precise Mach number at each data point was used. If the 
computations in figs. 10(a) and 9(c) were made at M = 0.753, the data correlation could 
only be enhanced.) The procedure outlined in reference 13 is solely aimed at providing 
the actual Mach number and angle of attack for wind-tunnel data so that indicated values 
can be corrected, and it requires the experimental pressure distribution to accomplish 
this. Since the data correlation for the analysis method herein presented is good, it too 
can be used, to some extent, to provide similar answers although this was not the original 
intent. The discrepancy behind the shock wave, and its corresponding effect on the angle 
of attack, does however presently limit this application. The Kutta condition at the trail- 
ing edge is not imposed in the method of reference 13, so the upper and lower surface 
pressure distributions cross near the trailing edge and produce a local region of 
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decreased lift. This condition somewhat compensates for the increased local lift behind 
the shock and thus minimizes its effect on the angle of attack. 

A final set of calculations has been made at M = 0.782, and these are presented in 
figure 11. Since the sensitivity to Mach number is greatly reduced because these condi- 
tions are not at the design point and since the precise blockage correction is not known, 
the indicated Mach number is again used. In general, the correlation with the data is 
good. However, the theory does fail to predict a very weak shock in the pressure distri- 
bution forward of the main shock. This inadequacy can be attributed to the mesh size; 
that is, the "fine" grid is not fine enough and an additional refinement would be necessary. 
Since this type of pressure distribution does not often occur, and the main shock and other 
characteristics are well defined, and since the cost of a computer run with an extra fine 
mesh would be prohibitive, it is not worth including further grid refinements in the anal- 
ysis. Also, an examination of the sonic line will usually indicate the potential for such a 
wave because, as discussed in reference 13, an indentation in the sonic line appears in 
the general location of this weak shock and forecasts the division into two or more dis- 
tinct supersonic zones. 

Calculations at high transonic Mach numbers are presently limited by the ability of 
the initial inviscid solution to converge. Cases where the shock would be located about 
10 pei cent to 20 percent chord forward of the trailing edge in the final analysis cannot be 
obtained because, without the boundary -layer displacement effect included, the initial 
solution would have the shock back at the trailing edge; and the present inviscid analysis 
method is unstable for this condition. Modifications are being made to the inviscid 
method, however, at the Courant Institute. Results however can currently be computed 
through drag divergence. In an attempt to provide temporarily a wider calculation envel- 
ope, the present analysis method automatically defines an arbitrary boundary -layer dis- 
placement thickness on the first cycle if the initial inviscid solution diverges. An effec- 
tive inviscid shape is then prescribed, all other quantities are reinitialized, and the first 
inviscid solution repeated since it should now be less likely to diverge. However, the 
increase in attainable computation points has been disappointing. A minor error in this 
phase of the computer program is suspected, where everything is not properly reinitial- 
ized. This matter is also discussed in the appendix. 

Although the correlation between theoretical and experimental pressure distributions 
is of prime importance, the prediction of the integrated forces and moments should also 
be examined. Normal-force values are relatively insensitive to the integration procedure 
and aie routinely obtained. Rotation into the lift direction does not require precise knowl- 
edge of the angle of attack. However, comparisons between theoretical and experimental 
lift curves are usually meaningless. Generally, only the geometric angle is tabulated in 
the data without any correction for wind-tunnel wall interference, and the value for the 
aerodynamic angle from the theory is slightly tainted by the local overprediction of lift 
16 



just behind a shock wave, as previously mentioned. Accurate pitching- moment informa- 
tion is usually insured by good correlation between pressure distributions because the 
location of the shock wave is the major contributing factor. The prediction of axial force 
and rotation into the drag direction has been and still is a problem. The absolute theoret- 
ical drag levels, estimated by adding the friction and pressure drags, are not veiy accu- 
rate. In fact, the precise origin of the wave drag in these types of analyses is not very 
clear. (An interpretation of the wave drag from isentropic shock waves is discussed in 
ref. 15.) Presently, the surface pressure distribution is integrated in the normal fashion 
to predict this drag. 3 Reference 15 suggests a shock integration method which has not 
yet been tried in this analysis because of the difficulty in accurately locating the shock 
wave in the flow field. Theoretical and experimental drag polars for the Korn airfoil are 
shown in figure 12 at several Mach numbers. The data points lie within a narrow band in 
Mach number for each curve and are labeled at the average value. Since reference 12 
only tabulates this data, these polars were faired in order to examine drag creep and drag 
divergence. The variation in incremental drag with Mach number, from the subsonic level 
at M = 0.512, is therefore shown in figure 13 for several lift and normal-force coeffi- 
cients. The correlation between the estimated and actual creep is only fair , in that the 
amount of creep near the divergence point is not known within the accuracy usually asso- 
ciated with drag. Of course, since this is only an incremental trend, and since the abso- 
lute level is not really known, precise definition of the amount of creep alone is not 
extremely useful. As the buildup in drag with increased Mach number becomes large, 
however, the theoretical and experimental trends agree very well and this agreement pro- 
vides for an accurate definition of the drag divergence boundary. By using a slope crite- 
rion of dc d jdM = 0.1, this boundary is summarized in figure 14, where the correlation 

between theory and data is excellent. 

To evaluate the analysis method on a conventional airfoil, results for an 
NACA 64A410 are compared with data from reference 16 in figures 15 to 17. The coordi- 
nates tabulated in the data report are used in the computations. Unfortunately, the test 
Reynolds number is near 10 6 , and a lambda shock pattern is present instead of a normal 
shock. Additionally, the transition is natural rather than fixed, whereas the analysis 
method only models a turbulent boundary layer. Figure 15(f) typically illustrates the dis- 
crepancy in the shock region resulting from the two-part compression associated with the 
lambda wave. At higher Reynolds numbers with turbulent boundary layers this situation 
would not occur. The general characteristics of the pressure distribution are accurately 
represented in all the cases. Even though the empiricism in the analysis method was ini- 
tially introduced to cope with supercritical airfoil shapes, good correlation is achieved in 
the aft region of the conventional airfoil, where the geometry of the two differs the most. 

3 The integration of the pressure distribution obtained by using Jameson's new con- 
servative difference scheme produces drag levels which better approximate the experi- 
mentally measured values. 
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The theoretical and experimental drag polars are again used to examine the drag creep 
and the drag divergence boundary. Figure 16 shows that the creep is defined slightly 
worse than it is for the Korn supercritical airfoil, and figure 17 shows the divergence 
boundary is again well represented. 

The development of the analysis procedure made considerable use of data on the 
recent series of NASA supercritical airfoils. Although the ability to predict the pressure 
distributions for these airfoils would probably generate the most interest, these data are 
unpublished and so these correlations are not shown. However, a few pressure distribu- 
tions on one of the early NASA supercritical airfoils have recently been presented in ref- 
erence 17. Therefore, two cases have been computed by use of the measured model coor- 
dinates for this airfoil, and the resulting comparisons with the data are presented in 
figure 18. The subcritical computation illustrates two regions where the correlations 
are not quite in line, and this is typical of most of the comparisons for this class of air- 
foils. At the entrance to the cove region on the lower surface, the theoretical pressure 
coefficients are slightly more positive than the experimental values, most likely because 
of the presence of a small separation bubble in the actual flow which modifies the effec- 
tive shape of the airfoil and thereby delays the start of the compression. On the upper 
surface, just forward of the trailing edge, the experimental pressures are inexplicably 
more negative, but this difference seems to be consistent. If any of these supercritical 
airfoils are to be modified for a new design point, the original shape should be analyzed, 
the i esults correlated with the data, and the predictions for the new geometry adjusted 
accordingly. This adjustment can be undertaken safely because the general character- 
istics should be closely estimated so that the adjustments are minor, and because the 
slight differences will normally remain consistent. For the supercritical flow case in 
figure 18(b), separation is predicted at 72 percent chord on the lower surface; yet the 
calculations proceeded by use of the empiricism discussed in the previous section. The 
predicted separation point was compared with the value from the Stratford criterion 
(ref. 18), and both locations are in perfect agreement. 

To substantiate the Reynolds number variations shown in the previous section, cal- 
culations are compared with some unpublished data on a NACA 65i~213 (a = 0.5) airfoil. 
Wind-tunnel data are rarely obtained at very high Reynolds numbers, but these measure- 
ments were made by using a model with a chord of 0.914 meter in the NAE facility in 
Ottowa, Canada (under NASA Contract NASI- 10632) which is the same facility as was used 
in reference 12. Figure 19 therefore shows the resulting pressure distributions over a 
range in Reynolds number from 25.0 x 10 6 to 52.6 x 10^ for the nominal conditions of 
M = 0.75 and cv = 0.0°. Although the Mach number and lift are not exactly the same at 
each point, the Reynolds number is the principal variable. The Mach number is corrected 
for blockage effects, and the theoretical computations use this value. The correlation in 
all cases is very good, particularly the shock location. For these conditions, there is not 
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a high degree of sensitivity to Reynolds number. This result is further substantiated by 
examining the results of an inviscid analysis at the nominal conditions, where the shock 
wave is located at about 59 percent chord with c^ = 0.29. The computations in fig~ 
ure 19(c), closest to the nominal conditions, indicate a shock location of about 57 pei cent 
chord. The analysis method did, however, predict this insensitivity; and in view of the 
wide variations shown on the supercritical airfoil in the previous section, these correla- 
tions indicate that predicted trends are valid. This method should therefore be capable 
of providing answers for conditions which more closely resemble flight and which most 
wind tunnels cannot attain. In addition, the comparisons between the inviscid and viscous 
calculations for both airfoils indicate that a positive conclusion about the character of the 
flow at high Reynolds numbers (on the order of flight values) cannot be drawn simply from 
an inviscid analysis. 

Finally, the ability to predict the shock-induced separation boundary has yet to be 
thoroughly examined. A few cases arose for the NASA supercritical airfoils where the 
inviscid-flow— boundary-layer iterations using the crude and medium grids for the invis- 
cid computations would converge, but the refinement to the fine grid immediately yielded 
a pressure distribution with an adverse pressure gradient at the shock wave stiong enough 
to separate the boundary layer. (As discussed in the previous section, the pressuie gia- 
dient at the shock increases as the grid becomes finer because the shock jump is contained 
over a narrower range in x/c.) The angle of attack was reduced in small increments in 
order to define the angle below which this no longer occurred. When an empirical curve, 
based on data for a variety of airfoils, was used to check this point for these cases, 
remarkably close agreement with the present results was observed. (This curve typically 
shows the variation with Mach number of the pressure coefficient just prior to the shock 
wave for incipient separation, and it appears as a narrow data band.) Although any coi - 
relation between the present results and the incipient separation boundary would appear 
to be fortuitous, since a true shock— boundary-layer interaction is not modeled, it might 
be plausible. The spacing of the input points for the boundary-layer routine within the 
analysis is chosen solely to provide reasonable characteristics in the vicinity of the shock 
as described by the fine grid, but for cases where shock-induced separation is not present. 
The results just up to the demarcation point should therefore be valid, and it might be 
expected to reasonably indicate when the shock strength is such that separation is immi- 
nent. Of course, this still has to be validated over a wide range of conditions. 

CONCLUDING REMARKS 

The present analysis method, in the form of a computer program, has the capability 
to calculate surface pressure distributions at transonic speeds for both conventional and 
supercritical airfoils with viscous effects included. An automated iteration scheme was 
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used to link separate, existing inviscid and boundary -layer analyses. Empirical formula- 
tions were included primarily to allow the computations to proceed when separation is 
present and to modify the boundary-layer displacement thickness near the trailing edge 
so that the effective inviscid shape in this region is more correctly defined. In an engi- 
neering sense, these formulations appear to be adequate. 

The approximations to the surface pressure distribution have been shown to corre- 
late reasonably well with experimental data for a variety of airfoil shapes over a wide 
range in Mach number, angle of attack, and Reynolds number. The shock was located 
within a few percent chord for almost every case analyzed, and good estimates of the 
pressure coefficients were obtained in the region of the trailing edge. Although the drag 
is not accurately predicted, the drag divergence boundary is well defined. 

Several refinements are necessary to improve upon the existing version of the anal- 
ysis method. The major factor requiring attention is the difference in theoretical and 
experimental pressure levels consistently observed immediately downstream of a shock 
wave. However, since improved estimates of the transonic performance of airfoils appear 
to result from almost any attempt to include the boundary layer in an analysis, the tech- 
nique herein described is appreciably better than the current practice of using inviscid 
methods alone. 

Langley Research Center, 

National Aeronautics and Space Administration, 

Hampton, Va., December 3, 1974. 
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APPENDIX 


A FORTRAN COMPUTER PROGRAM 

The FORTRAN program which follows computes the pressure distribution about an 
airfoil by using the procedure outlined in the previous sections. It is written for the 
Control Data 6000 series computers. This program is basically composed of two other 
programs (refs. 10 and 11) which are separately used to analyze the inviscid flow and the 
boundary layer. These programs have been combined in a very crude manner by using 
the general format of the inviscid computational scheme; thus, the result probably con- 
tains some loose ends. The version tabulated in this report requires a field length of 
approximately 134 000g words (octal), of which 121 000 8 are required for execution. An 
overlaid version exists, which requires only 75 000g words. In the absolute binary mode, 
this field length is reduced to 66 500g words, and most of the computations are made with 
this version for obvious reasons. It is not shown, however, because it is difficult to 
follow. 


Input and Output Data 

The input consists of an identifying title, the airfoil coordinates, and the calculation 
points in terms of Mach number, angle of attack, and Reynolds number. The title and 
coordinates are copied, by means of the control cards, on to a disk file labeled TAPE 3 
to be read later by the main program. An end-of-record card is therefore necessary to 
separate this part of the input from the remainder. Then follows the aerodynamic infor- 
mation, with one card for each calculation point; multiple cases are automatically executed. 
All the input data, except the title card, use an F10.0 format. A maximum of 160 total 
coordinates can be specified, and the amount on one surface is limited to 100. The scal- 
ing for the x/c values is from 0.0 to 1.0. A summary of this input mode follows: 

Title card — columns 2 to 59 

Input control card - 3 fields 

Number of upper surface coordinates 
Number of lower surface coordinates 
Number of cases — automatically set to 1 if blank 

Blank card or any desired label 

Table of upper surface x/c values — 8 fields per card 

Table of upper surface y/ c values — 8 fields per card 

Blank card or any desired label 

Table of lower surface x/c values — 8 fields per card 


21 



APPENDIX 


Table of lower surface y/c values - 8 fields per card 
End-of-record card 

Run cards — 5 fields per card — as many cards as number of .cases 

Run number - does not have to be sequenced 

Mach number 

Angle of attack, degrees 

Reynolds number times 10'® 

IFIX - automatically selected if blank 

The output starts by tabulating the information pertinent to the geometry of the air- 
foil and the conformal mapping. The information relative to the flow solution is tem- 
porarily written on TAPE 3 until the iteration process is terminated. Then either one of 
two forms is used. If the overall process converges, only the last set of boundary-layer 
characteristics and the last inviscid-flow definition are retrieved from TAPE3. Addi- 
tionally, a CalComp plot of the pressure distribution is generated. If convergence is not 
attained, and the iteration process is automatically stopped at the limit of four inviscid 
calculations by using the fine grid, the boundary-layer and inviscid-flow characteristics 
are presented for all the iterations. Four CalComp plots are generated for the four pres- 
sure distributions computed by using the fine grid. Then, TAPE3 is rewound, and the out- 
put data for the next case is again temporarily written on it and again retrieved after the 
convergence is evaluated. 

For the converged case, the specifics of the output are as follows. The title card 
and input data are printed for identification purposes along with a statement legarding the 
convergence of the iteration process. Next, the information used for the boundary-layer 
calculation is tabulated as well as the boundary -layer characteristics on the upper and 
lower surfaces. The displacement thickness, momentum thickness, shape factor, and 
local skin-friction coefficient are listed, and the presence of separation is noted. Then, 
a page-size plot of the displacement thickness on the upper and lower surfaces from 
1 percent to 100 percent chord is shown. The coordinates for the equivalent inviscid air- 
foil are listed, followed by the pressure distribution and the lift, drag, and pitching moment 
in coefficient form. A page-size plot of the pressure distribution is also shown from 
1 percent to 100 percent chord. Finally, a summary chart of all the iterations is pre- 
sented which lists the lift coefficient, the number of cycles for an inviscid computation, 
and the location of separation, if any, on both the upper and lower surfaces. This chart 
should be examined for any peculiar behavior of the intermediate iterations. The output 
for cases which are not converged consists of this data for all the iterations rather than 
just the last one. It should be noted that the overlaid version does not produce a CalComp 
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plotting tape until all cases are analyzed. If an abnormal exit is encountered, the plotting 
information for the cases thus far completed will be lost unless saved on a tape by means 
of the control cards. Then this save tape can be used to generate a plotting tape by com- 
bining it with the appropriate part of the program and resubmitting it. 

A listing of the input data and the program output is given on the following pages 
for a sample case which required 200 seconds of central processor time. The trailing 
edge adjustment parameter IFIX was not defined in the input, and so the empiiical rela- 
tion within the analysis selected the appropriate value. The resulting CalComp plot of the 
pressure distribution is shown in figure 20 to illustrate its format. The input data appear 
across the top. The lift, pitching- moment, and drag coefficients are summarized at the 
bottom along with the value for IFIX, the number of cycles for the inviscid computation 
NCY, the artificial viscosity level EP, and the number of grid points for the inviscid solu- 
tion M x N. The long tick on the vertical axis indicates the critical pressure coefficient 

level. 


INPUT DATA - SAMPLE CASE 

********** 

COLUMN NUMBER 

i t i i i i i i i -533333144444444445555555555666666666677777777778 

********** 


KORN AIRFOIL (THEOR COORD 
76. 74. 

UPPER SURFACE COORD 
.OOOOOOO .0001707 


WITH 

l ♦ 

I NATES (TABLE OF X/C 
♦0002774 .0004024 


AXIS ROTATED 0.12 DEG) 


, 0069575 
• 0378338 
.0740271 
. 1 088650 
.2304857 
.4901447 
.7065550 
.0366122 
. 9715175 
.0000000 
.0)43625 
.0307471 
, 04 1 351 7 
.0472947 
.0589021 
. 0644033 
.0500592 
.0309434 
.0047122 


.0087138 

.0409463 

.0766130 

• 1 160702 

.2675924 

. 5236700 

.7280635 

.0568614 

.9888925 

.0031239 

.0157936 

.0318990 

.04191 1 4 

.0482710 

.0604900 

.0636268 

.0481066 

.0271255 

.0017650 


01 I 14 12 
051 I 148 
0791 1 26 
12525)6 
2870966 
.5546379 
,7383184 
,0752960 
► 9976367 
.0038896 
754 90 
0352243 
0424275 
0494409 
,061912 1 
,0625651 
,0468213 
,0235324 
0004593 


.0 


.0146477 
,0540662 
.0818048 
. ) 364073 
.3187641 
.584101 7 
, 761053 I 
. 0979475 
I .0000000 
.0045925 
.0198103 
.0361355 
.0429563 
.0507635 
.0631 1 36 
.0612071 
.0435875 
.0190136 
.0001234 


THEN TABLE 

.0008207 

.0196960 

♦0570022 

.0846120 

. 1497806 

.3521519 

.61 1 6746 

.7765781 

.9133739 

.0062157 

.0226760 

.0370040 

.0435175 

.0522269 

.0640399 

.0595843 

.04)2076 

.0159090 


LOWER surface COORD 

.0000000 .0001020 


INATES (TABLE OF X/C 


.0015058 
.008371 0 
• 052 7423 
.2026627 
.3454286 
.5499170 

. 7007596 


.00190)9 
.010081 4 
.062701 7 
• 2283692 
.3641594 
.5786508 
.7265269 


.0001677 
.0023409 
.0 1 24032 
.0735680 
.2479330 
.3884023 
.6053171 
.7464950 


.0002520 
. 0030747 
.015470 1 
.0855366 
.2641452 
.4053M 1 

.62,3464 7 
.7602830 


OF Y/C) 
.0014433 
.0235426 
.0600323 
.0887955 
. ) 655666 
.3867489 
.6369992 
.791 8669 
.9273796 

.0078003 
.0246304 
.0378621 
.0442 1 92 
.0538026 
•0646494 
.0577608 
.0387602 
.0131 128 


THEN TABLE 
.0003544 
.0042774 
.01941 46 
. 1 000756 
.2822689 
.4271864 
.6421 1 17 
.7846519 


.0027634 
.0283907 
.0629909 
.0943301 
. 1 84 39) 1 
.4211 690 
.6587513 
.8087590 
.9395038 

.01 003B6 
,0268816 
.0386661 
.0451 322 
.0554932 
•0649128 
.0559207 
.0359227 
♦0107233 


OF Y/C) 
.0004675 
♦0048290 
.0254882 
. 1 18B486 
.2973241 
.4509051 
•6574869 
.8008943 


.0043530 

.0339274 

♦06BB572 

.1029020 

.2060384 

.4558077 

.6780408 

.02464)6 

♦9517002 

♦ 01 I 9356 
.0292199 
.0401522 
.0464543 
♦05721 42 
.0648330 
*05407)0 
.0331232 
.008371 1 


, 0006943 
.005B715 
*0295958 
. 1413490 
.3105001 
.4762792 
.671 1 358 
.81891 63 


.0010316 
.0071 353 
.0393139 
* 1675828 
.324510 1 
*5219445 
*6902354 
•8382702 
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APPENDIX 


O 0535306 

<>8791581 

*9034650 

« 9963660 

1 o ooooooo 


o 0000000 

-0 0020 1 90 

-*0026897 

— a 00 7 0163 

-<,0077434 

- 00084678 

-oOl 47253 

-o 0 1 59378 

-oO! 73967 

-« 03221 62 

- *0346358 

- .0369776 

- - 05 1 2022 

- . 052 1 70 1 

- .0526385 

-.051 71 60 

~«0b 09 7 44 

- -049757 1 

-.034751 0 

- <, 0309447 

-.0271778 

-oOl 161 15 

-*0090595 

- .0063567 

*0034392 

* 0040999 

.0044234 

*0005652 

*0001234 



ENO OF RECORD 

iO fl 0o702 M 


*9262652 

*9434243 

c 95Q3859 

-*0032561 

-*0037992 

- *0042930 

-*0095382 

-*0109573 

-*0l 1 57 t 8 

-*0190951 

- * 02 l 02 1 B 

- *0236028 

-*0392487 

-*0416516 

- *0442745 

- * 0528460 

-*0529007 

-.0528072 

-*0487396 

-*04721 98 

-.0453149 

-.0245072 

-*0216993 

-.0193718 

- *0036779 

-*0018370 

-*0003194 

. 004273 1 

*0030563 

*0032664 


Z 1 o 1 8 


o 9 733971 *9859140 

— * 0050788 — o 005992 1 
-eO 1 26227 —oOl 37472 
-*0251639 -00284252 
- o 0 468 1 45 — ■> 04 9094 5 

-<,0526268 -e 0523362 
-* 0429923 -00301648 
- o Q 1 72837 — o 0 l 4 3739 
*0011607 60024410 

<,0024303 o 00 151 65 


OUTPUT DATA - SAMPLE CASE 


ANALYSIS OF TWO-DIMENSIONAL, TRANSONIC, VISCOUS FLOW 
KORN AIRFOIL (THEOfi COORD WITH AXIS ROTATED 0-12 DtG> 
THERE ARE 10 SMOOTHING ITERATIONS USED 


AIRFOIL COORDINATES AND CURVATURES 

x V ARC LENGTH THETA 


KAPPA 


KP 


KPP 


1.000000 

.990020 

-995646 

-992955 

- y 69 7 75 
,966028 

- 96166 3 
-976659 
*971020 
, 964762 

- 95 7 909 
-950490 
-94253b 
-934077 
-925L43 
-915764 

- 905969 
-895 767 
. 885246 
-874374 

- 86319 7 
-851741 
.340032 
.323094 
,815952 
.803628 
.791144 
-773522 

- 765 7dU 

- 752938 

- 740014 
-727023 
-713981 
. 700902 
-687 799 
.674686 
-6615/3 
-648472 
.635394 
-622349 
.609347 
o 596 39 7 
.583 509 


.000123 
.000323 
.000549 
.000794 
.001065 
.001 362 

* OUi 681 
.002016 
.002356 
.002691 
.003010 
.003302 
-003557 
.003764 
,003912 
.003993 

- 003998 
.003 9L 7 
-0U3 742 
.003465 

- 003078 
.002575 
.001950 
,00 L 19/ 

• 000 3 14 
-.000701 
“.001848 
“-003123 
-.004520 
-.006032 
- .007648 
-.009356 
-.0 ll 140 
-.012987 
-.014880 
-.016604 
-.0 16 744 
-.020687 

U226 19 
-.024529 
-.026407 
-.028243 
-.030030 


C. 000000 
.001990 
.004 373 
.007077 
.010268 
.014027 
. 018404 
. 0234 19 
.029068 
.035336 
.042 196 
.049620 
.057573 
.066040 
. 074975 
. 084355 
.094 150 
. 104 3 32 
. 114874 
. 125750 
. 136934 
. L48401 
. 160 127 
. 1 72088 

- 184263 
.196629 

- 209 165 
.221852 
.234670 
-247600 
. 260625 
.273728 
,286892 
. 300 100 
.313339 
.326593 
. 339849 
.353093 
■ 366312 
.379497 
. 392 634 
.405713 
,418725 


•5.862 

-76944 .0904 

5.653 

3.0663 

5.289 

1.8639 

5.056 

1,6910 

•4.706 

1.0232 

4. 365 

1.4677 

•4.009 

1.3535 

■3.642 

1.2150 

■3.264 

1-1291 

■2.872 

1.0586 

■2.467 

L .0042 

■2.049 

-9599 

-1.620 

.9239 

- 1. L80 

.0 948 

-.728 

.0719 

- o 264 

.8545 

.21 2 

-0420 

o 7 00 

.8 334 

1.202 

.0280 

L. 717 

.8246 

2.244 

.8210 

2.783 

a 8180 

3-330 

-8114 

.3. 88 3 

.800 l 

4.435 

.7821 

4-981 

. 7559 

5.511 

.7202 

6.019 

.6744 

6.494 

.6 187 

6.929 

. 5 54 L 

7.316 

-4820 

7.649 

.4046 

7.924 

.3244 

8. 139 

.2439 

3,294 

. 16 5 5 

8.391 

.0911 

8.434 

.0221 

8.426 

-.0410 

8.373 

-.0980 

8.279 

1492 

8.150 

- . L 950 

7.400 

-.2360 

7.798 

-.2 725 


4.3 78E+Q0 

0. 

4.378E+Q0 

-3 « 3 30E+02 

-5.666E+00 

5.298E+02 

7, 7Q7E+00 

-4.2 7 IE +02 

-2 ,61 OE +00 

1.625E+02 

1.295E+O0 

-6 . 04 1 E+0 1 

-1.685E-01 

2.374E+01 

4- 122E-01 

-4.037E+Q0 

3-12 8E-01 

3.395E+Q0 

3- 966E-0L 

L.72LE-01 

4 . 009E-0 1 

7. 746E-01 

4.199E-Q1 

7.210E-01 

4.375E-01 

l. 142E+00 

4.652E-CI 

1.496E+00 

5 .0105-01 

1.7886+00 

5.435E-01 

1.915E+00 

5.985E-01 

1.320E+00 

6 • 3 Q8E -0 1 

1.416E+00 

6.633E-GL 

5-945E-01 

6. 767E-0 l 

- 7. 595E-01 

6.597E-01 

-2.728E+00 

5.996E-01 

-5 . 323E+00 

4.83BE-01 

-8.452E+00 

3.025E-01 

-1. 190E+01 

5.07LE-02 

-1.536E+01 

-2.694E-01 

-I . 84 1 E+0 1 

-6.477E-01 

-2 .066 E+0 1 

-l.066c *-00 

-2.L76E+01 

-1.50QE+00 

-2.14 7E + 01 

- i - 922 E + GO 

-U971E+01 

-2.303E+00 

-l,655E*01 

-2.618E+00 

-1 , 224E+01 

-2 -848E+00 

-7.2I9E+00 

-2.98LE+00 

-2.074E+00 

-3.019E+00 

2.520E+00 

-2 , 974E+00 

6.009E+00 

-2 .868E+Q0 

8 o 1 70E +00 

- 2 « 72 7E +00 

9. 169E+00 

-2.5 71E+00 

9-428E*00 

-2.413E+00 

9.38 LE + OO 

-2.259E+0Q 

9.330E+00 

-2.106E+00 

9.507E+00 

-1 .957E+00 

1.0 18E + 01 
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.026028 
.024294 
-022638 
o 021 056 
-0195*7 
. 018108 

- 01 6 738 
.015433 

- 014-194 
-013016 

- 011900 
-010843 
-009844 
-008901 
-008012 
-007177 
-006394 
-005660 
«. 004 975 
-004338 
-003747 
-003202 
-002 702 
-002249 
-001842 
-001481 
-001166 
-000898 
-000674 
-000492 

- 000352 
-000251 
-000136 
-000156 
-000161 
-000201 
-000281 
-000402 
-0005 71 
-000794 
-OJ1077 
.001426 
.001846 
.002343 
.002918 

- 003573 
-004308 
.005123 
-005015 
.006983 
.003026 
-009143 
-010334 
.011600 
-012941 
.014358 
-015853 
.01 7423 
.019086 
.020827 
- 0 226 54 
.024571 
-026573 
. 028679 
•03087/ 

. U331 73 
.035571 
.038073 
.040681 

. 043400 
.046229 
.049174 
-052234 
.055414 
.058 7 lb 
.062 143 
-065697 
-06 9 38 l 


023635 

.9800 50 

-.022992 

- 981918 

--022304 

-983712 

- .021619 

.985435 

- - 0 20939 

.987090 

- - 020 263 

. 988680 

-.019589 

.990207 

-.018916 

.991674 

- - 0 18248 

- 993083 

-.017580 

- 994437 

--01691 1 

-995739 

- - 0 lb 24 1 

- 996990 

--015570 

.998194 

-c 0 14896 

o 999353 

-.014218 

1 - 0004 70 

-.013537 

1-001540 

-.012851 

1. 002 5 89 

-.012161 

io 003596 

-.011467 

lo 004572 

-.010767 

1-005 510 

-.010062 

1-006438 

- . 009 35 J. 

1- 007 3 34 

- -0 086 33 

1-008209 

007908 

1-009065 

-.0071*74 

lo 009904 

-.006431 

1.010730 

-.005678 

1-011546 

-.004916 

1- 012354 

-.004 144 

1- 0131 58 

-.003363 

1-013960 

- - 002 5 71 

1.014765 

-.001760 

1-015573 

-.000956 

1.016389 

-.000132 

1.017213 

. 000704 

L. 018049 

-001552 

1-018890 

- 0 02 4i2 

L. 019762 

.003285 

1. 020644 

.004170 

1.021545 

-005065 

1.02246 7 

-005968 

1.023414 

-006 877 

1-024300 

.007789 

1. 025392 

♦ 0u8 701 

1-026430 

. 0 096 10 

1. 027506 

.010515 

1- 028623 

.011414 

1. 0297 05 

.012309 

1.030995 

. 0 13 199 

l« 032255 

.014086 

1.033568 

.014971 

1- 034937 

.015856 

1.036362 

.016743 

1-037847 

.017632 

1.039394 

.018526 

1. 041005 

.019424 

1.042683 

. U20328 

1-044431 

.021238 

1-046250 

-022 154 

1. 048 143 

.023076 

1. 050113 

- 024004 

1.052163 

-024938 

1-054295 

-026 87 7 

1-0565 11 

.026821 

L. 05 8 0 15 

-027770 

1.0612C8 

.028721 

1.063694 

.029675 

1- 06 62 74 

. J30630 

1.068952 

-031585 

1.071 731 

.032540 

L-0 746 11 

.033493 

1. 0 7 7557 

. 0 34444 

L. 080691 

. 035392 

1. 08 3 R 56 

-036335 

1.087213 

-037^72 

1-090645 

.0 33 193 

1.094194 

-039112 

1.097864 

♦ 040 008 

1- 10 1656 


-21-419 

-6.7724 

-22-177 

-7.4116 

-22. 975 

- 8 . 1464 

-23.820 

-8-9900 

-24.717 

-9.9577 

-25-673 

-11-0679 

-26-696 

-12-3435 

-27-793 

-13.8107 

-28-974 

-15.4954 

-30-248 

-17.4171 

-31-626 

-19-5014 

-33- 113 

-21.9698 

-34 - 716 

-24.5339 

-36.433 

-27.1984 

-38-260 

-29-0812 

-40. 187 

-32.5313 

-42.205 

-35.1686 

-44.312 

-37.9004 

-46.512 

-40.8917 

-48.019 

-44.2945 

-51.254 

-48.1715 

-53. 035 

-52.4537 

-56.575 

-56.9468 

-59.475 

-61.3620 

-62-525 

-65.3363 

-65.695 

-68-4426 

-68.941 

-70-2272 

-72- 202 

-70.3190 

-75.408 

-68.5908 

-78.492 

-65-2881 

-8 1 - 404 

-61.0283 

-04. 129 

-56.6503 

-86.686 

-52.906 i 

-89.128 

-50.6608 

-91. 531 

-49.9903 

-93.980 

-50.9768 

-96.559 

-53.3601 

-99. 335 

-56.6797 

-102-355 

-60.3303 

-105-634 

-63.6236 

-109- 153 

-65.0763 

-1 12. 055 

-66.5266 

-116-656 

-65.2545 

-120.451 

-62.0597 

-124. 135 

- 5 7 .2582 

-127.615 

-51.3899 

-130-826 

-45.0747 

-133. 732 

-30-9710 

-136-328 

-33. L 03 3 

-138.632 

-20-2331 

-140.676 

-24-0821 

-142-498 

-20.6823 

-144. 136 

-17.9313 

-145.622 

-15.7086 

-146-986 

-13.9035 

-148.249 

-12.4232 

-149.429 

-11-1935 

-150.539 

-10.1570 

-151.592 

-9.2709 

-152.594 

-8.5049 

-153.552 

-7.8309 

-154.473 

-7.2610 

-155.363 

-6. 7631 

-156.226 

-6.3373 

-157.070 

-5.9705 

-l 5 7 - 096 

-5.6434 

-150. 707 

-5.3326 

-L59.502 

-5.0107 

-160.275 

-4.6952 

-161.023 

-4.3729 

-161. 745 

-4 .0766 

-L62.44S 

-3.8341 

-163. L32 

-3.6628 

-163. 317 

-3.5617 

-164.512 

-3.5113 

-165.223 

-3.4010 

-165.951 

-3.4384 

-166.690 

- 3. 3569 


-3.2368*02 

-3.472E+04 

“3 .872E+02 

-4.317E*04 

-4.633E+02 

-5.3256*04 

-5.533E+02 

-6 .6006*04 

-6.606E+02 

~ 0 . 262E + 04 

-7 . 895 E+02 

-1.0396*05 

-9.453E+Q2 

-1.2986*05 

-1.1 32E+Q3 

-1.5836*05 

-L.35IE+03 

- 1 . 852E+ 05 

-1.597E+03 

-2.036E+05 

- 1 . 85 7E + 0 J 

-2.03 76*05 

-2 . 1 0 7E + 03 

-1 .770E*05 

-2.317E+03 

- 1 .244E* 05 

— 2 .4 5 0E+O3 

-6 .620E+04 

-2 . S3 IE * 0 3 

-4. 432E*04 

-2 . 5 78E *03 

-1 .050 E*05 

-2.6066*03 

-2.6036*05 

-2.951E+Q3 

-4o904E*05 

-3.4206*03 

-6.7736*05 

-4 o 049E *03 

-7.2 70 E*05 

-4. 706E *03 

-S.8B5€*05 

-5o224E*03 

-2 .654E+05 

-5.45 IE*03 

2. 163E+05 

-5 .2 706*03 

8. 528E*05 

— 4.567E*03 

1.630E+06 

“3 . 246 E*03 

2 .431 E*06 

-1.301E+03 

2.983E*06 

1.064E*03 

2.9646*06 

3.4026*03 

2. 2176+06 

5 . 14 7E*03 

8.9916+05 

5o857E*03 

-5. 061E+O5 

5 . 392 E *03 

-1.809E+06 

3 o 944E *03 

-2.5086+06 

1.91 56*03 

-2.6386+06 

-2 .48 2E *02 

-2.3026+06 

-2.166E*03 

-1.648E+06 

-3.5646*03 

- 0. 059E+05 

-4 . 26 1 E *03 

1.1506+05 

-4 . 1 59E *0 3 

9« 95 l £ + 05 

-3.259E+03 

1.6 94E +06 

-1.6856*03 

2.076F+06 

2.9846*02 

2 » 066 6 + 06 

2.3346*03 

1 o 6 94 E + 06 

4.060E*03 

1.092E+06 

5 .2136*03 

4. 444E+05 

5. 7 COE * 03 

-9.497 E+04 

5. 592E*03 

-4.457E+05 

5. 06 3E*Q3 

-6-04SE+05 

4. 315 £*03 

-6. 1B26+05 

3.51 BE*03 

-5.460E+05 

2.7856*03 

-4.406E+05 

2. 169E *0 3 

-3.3566+05 

1 .680E *03 

-2.4716+05 

L o 3 05E * 03 

-l. 78 8E + 05 

L.022E*03 

-1 .2866+05 

8-1046*02 

-9.256E+04 

6. 5 1 7E *02 

— 6.7 05 E +04 

5-3206*02 

-4.941E+04 

4 .4026*02 

-3.757E+04 

3.675E *C2 

-2. 904E+O4 

3.074E + 02 

-2 .4686 + 04 

2 .5586*02 

-2.067E+04 

2.10 8E *02 

- 1 .6 62E+04 

1. 73 2E* 02 

-l. 195E+04 

1.4526*02 

-6.897E+03 

1.283E+02 

-2.529E+03 

L. 2196*02 

-1.4446*02 

i.215E*02 

-4. 425E+02 

1.2036*02 

-2.9426*03 

1.1206*02 

-6 . 1336*03 

9.400E *01 

-8.2956*0 3 

6.8786*01 

-8.393E*03 

4.2346*01 

-6 .482E + 03 

2. 120E*01 

-3.431E*03 

9.6246*00 

“3-157E*02 

8 . 522E + 0G 

2 .0 82E + 0 3 

1 .6046+01 

3.4356*03 

2.006E+O1 

3. 759E+03 
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• 8 29 126 

.032015 

1.864679 

-190. 130 

-.3783 

1*1 77E+00 

.841018 

.029863 

1.876764 

-190* 380 

-.3434 

I.252E+00 

.852667 

.027705 

1.388611 

-190.600 

-.3027 

1 .3196+00 

,864051 

.025555 

1 .900196 

-190. 786 

-.2560 

1.369E+00 

-875148 

.023426 

1.911496 

-190. 935 

-.2033 

i . 3 9 7E+00 

,885935 

.021331 

1.922484 

-191.045 

-.1448 

1.394E+00 

,896367 

.019283 

1.933135 

-191. 114 

-.0813 

1 .357E+00 

-906480 

.017297 

1.943421 

-19L. 142 

-.0135 

1.287E + C0 

,916 189 

.015386 

L. 9533 17 

-191. 130 

.0574 

l . L88E+00 

.925486 

.013560 

1.962792 

-191.079 

.1306 

1-O60E+OO 

.934345 

.011832 

1.971818 

-190.992 

.2056 

9.397E-01 

,942 73 7 

. 0 1 0 2 1 0 

1.980365 

-190.873 

.2826 

0*1 14E-01 

,950633 

,008 704 

1. 96 84 03 

-190. 725 

*3621 

6.880E-01 

♦958003 

.0073 19 

1.995902 

-190.552 

.4454 

5.752E-01 

.964816 

. 006 061 

2.002830 

-190. 358 

*5337 

4.565E-01 

.971045 

.004935 

2.009 160 

-190.148 

*6302 

3* 739E-01 

.976663 

.0 03 940 

2.014865 

-189.925 

*7327 

1.7726-01 

.981653 

.0030/7 

2-019930 

-189.696 

.8597 

3*6366-01 

.966011 

.002341 

2.024350 

-189.463 

*9606 

-6.858E— 01 

.989756 

.001 724 

2.028145 

-189.230 

1*1352 

1*4496+00 

.992938 

-001213 

2.031368 

-189.009 

1*0887 

-4.803E+00 

.995635 

.000790 

2.034098 

-188.859 

1*1510 

3 ♦ 06 IE +00 

.998013 

.000423 

2. 036504 

-188.639 

1*8143 

-2*6006+00 

1* 000000 

.000 123 

2.038513 

-188.515 

-46340*9029 

-2.600E+00 

ERR 

DA 

08 




2.9469516-02 

5. 7580716-03 

4o372224E-02 




6.45 8831 t-0 3 

-L .8055296-03 

1. 327 16 36-02 




2* 61 58 116-03 

1.6 52 716L-04 

3 . 82 3044E-0 3 




7. 4107686-04 

-1. 7966086-04 

7.8 196256- 04 




2, 47 13 75E-04 

3.6 86719E-05 

2.027501E-04 




8. 302199E-05 

-3*0582556-05 

2.28 366 9E- C5 




3. 0986206-05 

-L.211597E-06 

-8.316692E-06 




1.0638706-05 

-1 o 197 288E-05 

-1 .825942E-C5 




4. 3891996-06 

-7.662224E-06 

- 1 - 97765 5E-C5 




1.605039E-06 

-9*308 70BE- 06 

-2.033855E-C5 




6.490394E-07 

-8. 6629466-06 

-2 * 040 102E-Q5 





MAPPING TO THE INSIDE OF A CIRCLE 

DZ/0S16MA = -( 1/SJ GMA**2J *1 1-SlbMAJ < L-lPS IL )*(EXP(WI SIGMA) ) 
W(SIGMA) - SUM<( A( Nl+I*BlN> >*S1GMA**< N-m 

EPSIL = ,015 300 POINTS AROUND THE CIRCLE 


A ( N l 

8<N) 


2.0 335 1 3 = +00 

4.634 36 4E-02 


9. 85261 7E-01 

-2. 040 102 E- 05 


-3* 198867E-01 

9.2 366 3 3E- 02 


2. 0803 50c - 0 I 

-1* 8113531-02 


-1.3508876-01 

2.670647E-02 


7. 24876 8t - 02 

-3.248779t-02 


-5.57L157c-02 

l *97 9689E- 02 


3. 7 308 6 21: -02 

-2. 156461E-02 


-2. 5 1Q498E-02 

1 • 8968 206-02 


I- 7063 13E- 02 

-1.428820E-02 


-1.3814 ltft-02 

1 .261280E-Q2 


7. 774508E-03 

-8, 40 7 56 5E- 03 


—6. 37d555t— 03 

5*5990 31c- 03 


3. 361523E-03 

-3. 2 76 3 1 7E-03 


-2.261805E-03 

1.245588E-03 


4.536691E-04 

1. 056626E-04 


DEL S 

RhS S/L 

WtO) 

2* 855E - U2 0 

• 1 .00006 

-1.29843 

i. 356E-04 L 

.3336-06 .99999 

-1.25843 


ANGLE DF ZERO LIFT = -2. 65350 OUTER MAPPING RAOIliS = .27 296 

THc THICKNESS TO CIIURD RATIO IS .11/ 3 


3.500E+00 
3. 048E+00 

2 . 202E+OO 
1 « 2 1GE+OQ 

- I , l 62E -01 
- I, 584E+0G 
-3,0 156+00 
-4.2 05E+00 
-4.995E+00 
-5 . 3 34 E+OG 
-5.270E+0Q 
-5.O3GE+00 
-4 * 56 7E +UQ 
-4. 7 89E + 00 
-3.126E+00 
-8, 150E + 00 
7 0 5 806+00 
-4,3106*01 
8 * 842E+0 I 
-2*5756*02 

3 * 1 006 + 02 
-1.8686+02 
-2,2636-13 
-2,2636-13 
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INPUT FDR BOUNDARY LAYER CALCULATION FRGM PREVIOUS INVlSClD SOLUTION 

***** UPPER SURFACE ***** ***** LOWER SURFACE ***** 


X/C 

CP 

CUR V 

CP 

CUR V 

0.000 

.800000 

50.325570 

.800000 

50.325570 

.025 

- .644574 

7.154498 

.247582 

7.151358 

*050 

-.904418 

3.787810 

.034812 

3.128971 

. 075 

-1.132435 

3.132292 

-.087394 

2.050502 

* 100 

-1.233545 

1. 618051 

-.163480 

1 • 507463 

. L25 

-1.228268 

.893546 

-.213747 

1.202042 

• 150 

-1.144247 

.658656 

-.246087 

.988527 

.175 

-.766439 

.540442 

-.266166 

.835771 

.200 

822957 

.466162 

-.277970 

.722812 

*225 

-.833460 

.414162 

-.203975 

.645317 

.250 

-.707089 

.375801 

-.286101 

.594810 

.275 

-.763934 

.347159 

-.284640 

♦558995 

. 300 

-.746957 

.326000 

-.279691 

.531835 

. 325 

-.733023 

.310527 

-.271465 

.512231 

. 350 

-.721137 

.299751 

-.260100 

.497967 

.3 75 

-.710333 

♦292998 

-.245148 

♦4863 1 6 

.400 

-.700528 

.290539 

-.226944 

.474007 

.42 5 

-.691013 

.292568 

-.205043 

.458154 

.450 

-.683925 

. 299458 

-.1 79807 

.433851 

.475 

-.676698 

.312066 

-.15 1904 

.421502 

*500 

-.669793 

.331473 

-.121146 

.406279 

.525 

-.662460 

.358332 

-.087135 

.384354 

.550 

-.653692 

.392034 

-.049945 

.347374 

• 575 

-.641293 

.430447 

-.009794 

.293820 

.600 

-.624116 

.4 7 0444 

.032810 

.224617 

.62 5 

-.600530 

.507663 

.076672 

. 138702 

.650 

- .568350 

.535304 

. 12 CS 84 

.033644 

. 675 

-.528569 

.546198 

. 164639 

-.092892 

. 700 

-.481069 

. 5 39 38 C 

.206403 

-.238516 

♦ 725 

-.428190 

.522904 

.245058 

-.392171 

♦ 750 

- . 3 7 L 084 

.502770 

.270807 

-.537666 

.7 75 

-.310435 

.477160 

.306605 

-.659005 

• BOO 

-.246164 

.441C30 

.320546 

-.745513 

.825 

-.1 78736 

.380435 

.343755 

-.795522 

.850 

- . L 0846 9 

.312030 

.353864 

-.817025 

• 875 

-.036827 

.204012 

.35 8944 

-.824700 

.900 

.034019 

.057019 

.359074 

-.836970 

.92 5 

.100582 

-.126779 

.359874 

-.071639 

.95 0 

.1 53 476 

-.355721 

.359874 

-.957667 

.975 

.178075 

-.702334 

.359874 

-1. 189744 

1.000 

.359874 

-2.368634 

.359874 

-4.070160 


UPPER 

SURFACE BOUNDARY LATER 

■» 



X/C 

DELSTAR/C 

MGMNTM/C 

H 

CF 

.025 

• 000 J7 

.0000 

1.669 

3- 65 8E-03 

.051 

. 00008 

.0000 

1*874 

3.23 8F-0 3 

.075 

♦00014 

.0001 

1. 873 

2. 948E-03 

.101 

. 00020 

• 000 L 

1.909 

2.677E-03 

. 125 

.00026 

♦ G001 

1.924 

2.471E-03 

.152 

.00039 

.0002 

1.906 

2.046E-03 

.175 

.00037 

.0002 

1.799 

2. 145E-03 

.204 

.00055 

.0003 

1.765 

2. 0406-0 3 

.231 

.00058 

.0003 

1.732 

2. 159E-Q3 

.251 

. 00062 

.0004 

1.730 

2.152C-03 

.275 

.00068 

.0004 

1. 734 

2.0266-03 

* 307 

. 00076 

.0004 

1.741 

1.9496-0 3 

. 32 0 

.00000 

.0005 

1.740 

1.919E-03 

.359 

.00086 

.0005 

1.734 

1 .809E-O3 

.380 

.00090 

.0005 

i.727 

i. 8776-03 

*401 

.00093 

.0 J05 

1.720 

I. 0 72E-03 

.428 

. 000 98 

.00 06 

L. 703 

1.8596-03 

.461 

.00103 

.0006 

..693 

1. 872E-03 

.477 

.00106 

.00 06 

1.689 

1. 873t-03 

.511 

.00112 

.0007 

1.602 

1.065E-O3 

.52 7 

.00115 

.0007 

1.680 

L.859E-03 

.56 0 

.00121 

.0007 

L.676 

1.8406-03 

.577 

.00124 

.0007 

L. 675 

1.824E-03 
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*609 

.00132 

.0008 

1.675 

1.78LE-03 

♦ 626 

•O0L37 

.0008 

1.670 

1 o 751E-03 

*650 

.00145 

.0009 

1. 6 7 L 

1.6856-03 

*697 

.00165 

.0010 

1.684 

1. 563E-03 

*720 

.00177 

.0010 

1.693 

1.489E-03 

• 742 

. 00190 

• OOil 

1. 704 

L.411E-G3 

• 764 

.00206 

.0012 

1.717 

1.330E-03 

* 784 

. 0022 J 

. 00 13 

1.73 3 

1.245E-03 

* 803 

.00242 

. 0014 

1.752 

U 15BE-03 

. 638 

.00284 

.0016 

1. 793 

9 • 807E— 04 

. 861 

.00322 

.0018 

1.34 1 

8.378E-04 

* 88 1 

.00363 

.0019 

1.891 

7. 152E-04 

* 899 

.0040? 

.0021 

i.948 

6. 184E-04 

• 914 

.00453 

.0023 

2.009 

5.247E-04 

• 929 

. 00496 

.0024 

2.068 

4.445E-04 

• 942 

.00541 

.0026 

2. 114 

3.<H3E-04 

• 956 

. 00577 

.002 7 

2. 141 

3.646E-04 

• 96 8 

.00655 

.0029 

2.228 

2.14UE-04 

.975 

SEPARATION 

♦ 0 0 749 

.0032 

2.364 ' 

9.4546-05 


LOrfER 

SURFACE BOUNDARY LAYER 




x/c 

DFLSTAk/C 

MCMNTM/C 

H 

CF 

.02 6 

.00006 

.0000 

1.526 

4. 174E-03 

.051 

. 00009 

.0001 

1.608 

3.446E-03 

.076 

.01)013 

.0001 

1.602 

3. U9E-03 

• 101 

.0001 7 

.0001 

1.594 

2.946E-03 

. 126 

.00021 

.0001 

1.594 

2. 825E-03 

.151 

♦00025 

. 0002 

1.594 

2.668E-03 

.177 

. 00030 

.0002 

1.59 7 

2.56LE-03 

.204 

.00034 

.0002 

1.599 

2.465E-03 

.226 

.00038 

.0002 

1. 59 1 

2.422E-03 

.233 

. 00043 

.0003 

1.589 

2.371E-03 

.2 80 

• G004d 

.0003 

1.568 

2. 32 IE-0 3 

• 300 

. 00052 

.0003 

L.587 

2.281E-03 

.335 

.00059 

.0004 

1.581 

2. 197E-03 

. 356 

.00063 

.0004 

1. 581 

2. 164E-03 

.377 

.00067 

.0004 

1. 581 

2.124E-03 

.408 

. 000 74 

.0005 

1.581 

2.067E-03 

.42 9 

.00079 

.0005 

1.581 

2.027E-03 

.459 

.00088 

.CO 06 

1.578 

1 . 963E-03 

.475 

.00092 

.0006 

1.578 

1.912E-03 

.506 

.00102 

• 0006 

1.581 

1. 849E-03 

.537 

.00113 

.0007 

1.585 

1.773E-03 

.552 

.00119 

.0007 

1. 588 

1 . 733E-03 

.581 

.00132 

.0008 

1.593 

L.655E-03 

.610 

.00147 

• 0009 

1. 602 

W 572E-03 

.645 

. 00168 

. 0010 

1.610 

l. 4556-03 

.665 

.00182 

.00 11 

1.618 

1.400E-03 

. 685 

.00197 

.0012 

L • 626 

l ,3506-03 

. 703 

.00211 

.0013 

1.634 

U3QIE-03 

.738 

.00240 

.0015 

L .64 3 

U225E-03 

.755 

. 00253 

.0015 

1.644 

1.204E-03 

. 798 

.00280. 

.0017 

L.627 

1 .197E-03 

. 824 

.00292 

.0018 

1.612 

1. 224E-03 

.05 l 

.00300 

.0019 

1.589 

1.273E-03 

.879 

*00303 

.0019 

1. 561 

i .341E-03 

.907 

.00303 

.0020 

1.532 

1.414E-03 

.935 

.00302 

.0020 

1. 507 

1.481E-03 


RUN CUHPLfeTEO 


30 



ORIGINAL PAGE lb 
OF POOR QUALITY 


* 


« 8565 


.3343 


♦ 

.8222 
. 8051 
♦ 78 79 



. 7708 


* 

.7537 
. 7366 
. 7144 
. 7023 


* 

.6852 

.6630 

.6509 


* 

.6338 

.6167 

.5995 

.5824 


* 

.5653 


* 

.5481 

.5310 


* 

.5139 
• 49t»7 


* 

.4 796 
.4625 


* 

• 4454 


* 

.4232 
. 41 L 1 


* 

. 3940 


* 

.3763 
. 339 7 


* 

. 342 6 


* 

. 3255 


++*+++++++++++++++ 

• 3033 


4- + ++** 

. 291 2 


* 4- * 

. 2741 


*♦4- * 

. 2569 


♦ 4- ** 

.2398 


♦ + ** 

.2227 


4-+ +** 

. 2056 


**4- ** 

. 1834 


4- 4- **** 

. 1713 


♦ ♦4-* ♦*** 

. 1542 


** c***$* 

.1370 


* 4c * * * * * * * 4 

. 1 199 


********** 4-+--M-* 

. 1028 


******** ******* 

♦ 0356 
. 0685 


******** 4- ♦ +■ + ♦ '♦’+ ♦ + 

. 05 L 4 


***** *******4-* 

. 0343 

******* + 4- + + + 

. OL 7 1 

* ****$**4- + 
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ADDITION CF BOUNDARY LAYER DELSTAR TO AIRFOIL COORDINATES 


***** UPPER SURFACE ***** 


X- BODY 

Y-BODY 

THETA 

DtLSfAK 

X-Nc W 

Y-NEW 

0.000000 

O.00J000 

-89.257 

0. UOO0O0 

0.000000 

0.000000 

.000 L/i 

.003124 

-96.944 

, 0000 01 

.000169 

.003124 

♦ 000*? 7 7 

.003890 

-98.979 

♦000002 

.000275 

.003890 

♦ 00040*? 

.004592 

-101.273 

« 000 003 

• CG0400 

.004593 

♦ 00082 1 

.006216 

- 107.818 

.000006 

.000815 

.006217 

♦001443 

.007800 

-115.101 

. coooto 

.001434 

.007805 

-OG2 7t> 3 

.010039 

-125.806 

.000018 

.002749 

.010049 

• 004 35 3 

.0 LL9i6 

- 133.375 

.000027 

.004333 

. 011954 

♦ 006958 

.014383 

-139.746 

♦ 000039 

.006932 

.014413 

.000714 

.015794 

-142.586 

. 000046 

. 00 86 86 

.OL5830 

♦ 01114 1 

.017549 

- 146.540 

. 000054 

.011111 

.017593 

.014648 

.019810 

-143.679 

. 000062 

. C14616 

.019863 

♦ 019697 

.022676 

-152.030 

•000068 

.019665 

.022736 

♦ 02 5 54 3 

.024630 

- 154.028 

.000071 

.023512 

.024694 

♦ 02839 1 

. 026882 

- 156.095 

.000072 

.026362 

.026947 

.03392 7 

. 02 922 J 

-158.063 

.000072 

. C33900 

♦C29287 

.037834 

.030 74 7 

-159. 186 

♦OOJU 72 

.03 7008 

.030815 

♦040946 

♦03 1899 

- 160. 309 

. 000073 

♦040922 

.031 96 0 

-051115 

.036224 

-162.694 

♦000082 

♦051090 

.035302 

.054066 

.036136 

- 163.133 

♦ 000088 

.054041 

.03622C 

♦057002 

.03 7 004 

- 163. 868 

.000095 

.056976 

.037095 

♦060032 

. 037862 

-164.513 

♦OOU103 

.060005 

.03796 1 

.062999 

. 0 J doito 

- 165.152 

. 0001 10 

.062971 

•038773 

.068 85 7 

.040152 

- 166.382 

.000125 

.068828 

.040274 

.074027 

.041362 

- 167.504 

.000139 

.073997 

.04140 ? 

.076613 

.041411 

-168.066 

•0001 45 

• 076583 

•042053 

.079113 

.042428 

- 168.606 

.000 151 

.079083 

.042575 

.081803 

.042956 

- 169.135 

♦000157 

.001775 

.043 11 1 

♦ 064812 

.043518 

- 169.6 95 

♦000164 

•084783 

♦ 043679 

.068795 

.044219 

- 170.300 

♦000173 

.088766 

.044389 

.094330 

.045132 

- 170.931 

. 000184 

. C94301 

.045314 

. 102982 

.046454 

-17L.663 

♦ 0 CO 2 00 

. 102953 

.046652 

.108865 

.047296 

- 172.066 

. 000200 

. 108836 

.047501 

.116070 

.048271 

- 172.492 

♦000224 

,116041 

.040493 

.125252 

.04 944 1 

- 1 72.976 

♦000256 

. 125220 

.049695 

-136407 

.050763 

- 173.486 

.000327 

.136370 

.051089 

♦ 1 4 97d L 

.062227 

- 174.016 

,000362 

• 149741 

♦052607 

.165567 

.053 803 

-174.572 

•000364 

.165532 

• 054 165 

. 184391 

.055493 

- 175.152 

.000428 

• L84358 

♦ 05592 C 

.206038 

.057214 

-175. 743 

.000 5 52 

.205997 

.057764 

.230486 

.068902 

- 1 7u . 344 

. 0JO562 

. 230449 

♦ 0594 02 

.257592 

.060490 

-176.941 

. 000633 

♦ 25 7559 

♦061122 

.287097 

.06 L912 

-177.531 

.000714 

. 287066 

♦062625 

.318 764 

.063114 

-178.117 

.000763 

.318736 

.063897 

.332152 

.064040 

-178.700 

. 000849 

♦ 2521 33 

.064 86 8 

. 386749 

.064649 

- 1 79.2 78 

.000909 

.38673? 

•065559 

.421169 

.064913 

-1 79.346 

.000965 

.421166 

.065870 

♦455806 

.064833 

-180.422 

♦ 0010 24 

.455815 

.065857 

.490146 

.064403 
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pressure distribution vs equivalent airfoil coordinates 
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Co nvergence .- In some instances, the inviscid-flow— boundary -layer iterations with 
the crudeand medium grids, or at least the medium grid, will converge, although the 
iterations with the fine grid will not. The convergence criterion associated with the num- 
ber of cycles of an inviscid computation was introduced to prevent this convergence, but 
the current requirement of 20 cycles or less occasionally is not adequate. Sometimes 
the limit of four inviscid solutions with the fine grid is reached without convergence of 
the iterations. In almost all these cases, however, the first solution with the fine grid 
(which is just a refinement of the last converged solution with the medium grid) is accept- 
able. In fact, some of the data correlations in this paper fall in this category. There- 
fore, as a rule of thumb, use the first of the four pressure distributions provided they are 
all reasonably similar and provided the inviscid- flow— boundary -layer iterations using 
the medium grid have converged. A reduction in the maximum number of fine-grid com- 
putations to 1 or 2 was contemplated to save computer time; but in rare instances all four 
of the aforementioned pressure distributions are not similar and thus the results cannot 
be used. The program can be modified, if desired, to increase the allowable number of 
inviscid computational cycles associated with overall convergence (from 20 to about 23 
or 24), or to raise the tolerance level on the inviscid solution (to redefine ST from 
5 x 10" 5 to approximately 10"^). 

At high transonic Mach numbers, when the shock wave is very near the trailing 
edge, the initial inviscid solution currently diverges. As previously mentioned, an arbi- 
trary boundary layer is introduced in an attempt to increase the number of attainable 
computation points with disappointing results. It should be noted that although a minor 
error is suspected in the version of the program which is herein listed, an additional 
error definitely exists in the overlaid version. Instead of starting from an incompress- 
ible flow definition, the second inviscid calculation definitely starts from the last cycle of 
the first inviscid calculation. Thus, it too diverges. This whole process probably should 
be deleted from the computer program. Additional computation points at the high Mach 
numbers can be attained, however, by reducing the value of the term associated with the 
artificial viscosity EP. It is currently defined as 0.7. For cases where the initial invis- 
cid solution would diverge, a value of 0.0 has successfully been used. (EP can vary from 
0.0, which corresponds to second-order accuracy at those points.) Also, the program can 
be modified to start the calculations at a lower Mach number or angle of attack where the 
first solution will not diverge, and then to increase to the desired level after the boundary 
layer has been incorporated, for example, on the second or third iteration. 

Effect of IFIX.- This empirical factor can be input or automatically selected. To 
illustrate the typical effects it has on the pressure distribution, results on a supercritical 
airfoil are shown in figure 21 for the automatically selected value (IFIX = 37) and for a 
specified value corresponding to no internal adjustment of the aft surface pressure distri- 
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bution (I FIX = 41). Initially, IFIX was intended to vary with thickness ratio as well as 
trailing-edge slope, but consistent data over a range of thickness ratios were not avail- 
able. Recent calculations for thin supercritical airfoils have indicated that the present 
empirical formula apparently produces values of IFIX which are slightly low. This fact 
can be deduced by examining the behavior of the upper surface pressure distribution neai 
the trailing edge, where an atypical reversal from an unfavorable pressure gradient to a 
favorable one occurs. 

In sufficient coordinate definition .- Inadequate definition of the airfoil, particularly 
near the nose, or incorrect definition of a particular coordinate can cause the progiam 
to terminate with no message. Thus, special note is being made here. After the first 
line of output, the program exits from subroutine AIRFOL. Additionally, there should be 
no coordinate input aft of the 99-percent chord, except for the trailing-edge coordinate, 
because an error can arise in the definition of the equivalent inviscid airfoil in this 
region. 


Program Listing 


PROGRAM FLOW 1 < 1 NPUT=66 . OUTPUT = 500 ,T APE3 = SOO . T APE6=OUTPUT . T APE5= I NP 

ANALYSIS OF - TWO-DIMENSIONAL* TRANSONIC* VI5COUS FLOW 
COMMON PHI ( 1 62* 33) • FPU 62* 33 > 

COMMON /B/ AA < 1 00 ) iBB < IOO ) _ _ __ 

COMMON /C/ M * MM * MP *N *NN *LL * LP ♦ I * I M * I MM * 1 M3 * I I * JU * I K * JK ♦ ! Z • ITYP* MX 
1 ,NS*NCY *TE*P 1 * RAO* TP* TP I . DT . DR * DELTH * DELR * RA * R AS * P A2 * RA3 ♦ RA4 * RA5 * E 

2M. OCR IT, Cl .C2.C4,CS»C6.C7.BET,EPS1 L.TC,Cl.CH 0. ALP.ALPO.DPHt ,XPH1 ,C 
3N.SN.EP .C3.RA7.RAB.RA9.EL.XM.XS.FSYM.ST . X • Y , YM , X A , YA . AQ , BQ .KP . YR .E 

AMO ♦ EE* I D I M « NFC « NMP « IS * N2 t N3 * N4 ♦ N5 *M4 * NRN * NC A SE 
COMMON /E/ KCYCLE*FNU*FNL* 1 BNDL A Y (13) * ABNDLAY C 19 > *XBODY 11 62 > • YBOOY 

I (162) * BODSLOP 1162) .BODCURV < 82 ) * XNEW I 162 ) * YNEWC 162 ) *CPSURF (162 ) *CPB 
2DLY < 82 ) * IGR I D * GR I 0* XUPLF ( 20 ) • XUPARC ( 20 ) * XL OLE ( 20 ) *XLOARC (20) * T I TLO 
3UT ( 15 > ♦ CLOUT ( 3*7 > *SUPOUT ( 3*7 ) *SLOWOUT O • 7 ) * CMOUT * CPUP < 85 > *CPLO < 65 ) 
A * XTEMUP ( B5 ) *XTEML0(85 ) ♦ DELBLX ( 1 62 ) *KOUNT • KOUNT UP * L OWGRD * 1NVDI V 

COMMON /F/ X6L < 75 ) * DELBL (75). THET8L < 75 > * HBL < 75 J • CFR0L < 75 ) «KTYPE 

^ COMMON /G/ SS(3I0)*TH(310)*UI310)*V(310) , W < 3 1 0 ) * SP ( 3 I 0 > 

COMMON /A/ A <40 > *F3<40 ) *C (40 ) *D< 40 ) *E (40 ) *RHO (40 > *RP (40) * R ( 41 ) ,RS( A 

II ) ,R] (41 )*S1 (162)*CO<l62)*Z(162) »FM ( 162 ) t PH 1 R ( 162) 

DIMENSION KWR I T ( 3 ) ♦ CONVOUT ( 3 * 2 ) * NCYOUT(3,7)* COMEM030)* COMF < 37 
17)* COMC ( 86 > * XTM(lOl)* DELTMC101)* XPLOT { 1 00 ) * OELBLXF ( 1 00 « 2 > * CP 
2PLOT(100.2). PYS ( 2 ) 

EQUIVALENCE ( COMF ( 1 ) *KCYClE> 

EQUIVALENCE (COMF U ) *XBL< 1 ) ) 

EQUIVALENCE (COMC(l).M) 

KONT ROL =0 

IRUN=1 

kplot=o 

DATA gam* 1M0/1 *4*0/ 

DATA (PYS ( J) * J=1 *2 ) /l H+ * 1 H*/ 

N2 = 6 
N3 = 3 
N4-6 
N5 = 5 

M4=N4 

DO 2° K1 =1 *3 
DO 20 K2=l *7 
SUPOUT ( K 1 *K2 ) = 1 *0 
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A 

A 

A 

A 

A 

A 

A 


00 
I 0 
20 
30 
40 
50 
60 
70 
80 
90 
100 
I 1 o 
120 
130 

1 40 
3 50 
1 60 
170 
1 80 
1 90 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
3 I 0 
320 
330 
34 0 
350 
360 
370 
380 
390 
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2'J SLOW OUT (K1 «K2 )-i oO 
KCVCLE= 1 
IGRf D=0 

IBNDLAY 1 THRU 11 AND ABNDLAY 1 THRU IT ARE INPUTS FOR THE 
boundary layer ROUTINE 

IBNDLAY < 1 > = 1 
IBNDLAY f 2 ) =500 
I0NOLAY (3 )=5000 
IBNDLAY (4 )=20 
IBNOLAY (5 )=4 1 
IBNDLAY <6 ) = 1 0 
IBNDLAY <7 1 = 1 
IBNDLAY <8) = 4 
IBNDLAY (9) =0 
I B NDL A Y I 1 0 ) - 2 
IBNDLAY < I I > - 1 
I B NQL A Y ( 12 ) = 7 
ABNDLAY <2 ) =0 o025 
ABNDLAY O ) =0 0 O 
ABNDLAY <5 ) =0a001 5 
ABNDLAY < 6 ) =0 o O 
ABNDLAY ( 71=0*00 l 
ABNDLAY (01=0© 1 5 
ABNDLAY (9 ) = 0*40 
ABNDLAY ( 1 0 ) -2 o 0 
ABNDLAY <11 ) = 1 oO 
ABNDLAY < I 2 ) = I ^ 

ABNDLAY < 1 3 ) =0 o89 
ABNDLAY < 14)=0<,76 
A0NDLAY(15 )=Oo7O 

ABNDLAY ( 1 6 > = 0 o 0 1 
ABNDLAY < 1 7 )=0 oO^OS 
F 1 5=F LO AT i IBNDLAY <6 ) > 

30 K STOP 3 3 
I SK 1 P -O 

IF (IRUNoGTdI) READ (N3) COME «COMC 5 PHI ,FP« AA *BB ^ A . BiC*D»E *RH0^RP«R 
l*RSoRlflSNCO»Z*FMgPHlR 

READ ( N5 « 940 ) FNRN,EM« AlP« ABNDLAY U 8 > »F 1 F IX 
NRN=FNRN 

IBNDLAY(13)=FIFJX 
KMAXC Y C = [0NQLAY< 12 ) 

40 CONTINUE 

KONTROL=KONTROL+ 1 

GO TO ( 1 A0« 50 9 60 9 70 « 90 * 1 00 ♦ 1 10*1 20 * 1 30 ) % KONTROL 
50 NS=- 1 
ITYP=1 
GO TO 140 
60 N5 t 
I T YP= I 
GO TO 140 

70 IF (NCASEqGTo 1 oANDo IRUNoEQo 1 ) WRITE <N3> COME * COMC 9 PH I < FP * A A ■> BB « A « 
1B*C«D*E« RHO * ftp • R • RS ■ Q I • S [ * CO • Z « FM . PH I R 
[F (FlFIXoGTol bO } GO TO 80 
C OEFINE PARAMETER FOR To Eo BOUNDARY LAYER ADJUSTMENT IF NOT ON 


c 

THE 

IF 

INPUT CARD 
(TESLOP o GE o 

’12oO) 

F1FIX 

= 4 1 oO 

+ 

(TESLOP 

+ 2&0)/2O©0 


IF 

(TESLOP 

O LE a 

-15oO) 

FIFIX 

= 39 o 5 

+ 

( TESLOP 

+ 15*0>/2oO 


IF 

(TESLOP 

o LT 0 

— 1 2 a 0 

e AND o 

TESLOP 

» GT 

O -15«0) 

FIFIX = 


1 -7o C>#TE:5LOP**3/540o 0 - 0 * 6* TE SL0P*#2 - 8*75*TESL0P “ Oo5 

IBNDLAY(I3)=F!FIX 
80 NS = 000 
1 TYP =4 
GO TO 140 
90 NS- 1 

1 TYP=~ 1 
GO TO 140 
100 NS=500 
I T YP=4 
GO TO 140 


A 400 
A 4 10 
A 420 
A 430 
A 440 
A 450 
A 460 
A 470 
A 4Q0 
A 490 
A 500 
A 51 0 
A 520 
A 530 
A 540 
A 550 
A 560 
A 570 
A 580 
A 590 
A 600 
A 610 
A 620 
A 630 
A 640 
A 650 
A 660 
A 670 
A 680 
A 690 
A 700 
A 71 0 
A 720 
A 730 
A 740 
A 750 
A 760 
A 770 
A 780 
A 790 
A 800 
A BIO 
A 820 
A 830 
A 840 
A 850 
A 860 
A 870 
A 880 
A 890 
A 900 
A 910 
A 920 
A 930 
A 940 
A 950 
A 955 
A 960 
A 965 
A 970 
A 900 
A 990 
A 1 000 
A1 010 
A 1 020 
A 1 030 
A 1 040 
A1 050 
A 1060 
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110 NS = 1 


ITYP=— 1 
GO TO 140 
120 NS = 300 
1 TYP=4 


GO TO 140 
130 NS = O 

l t yP=o 


140 


ALP-ALP/RAD 
IF (NS*EQ#0) GO TO 340 

COMPOTE CONSTANTS NEEDED IN CALCULATION 
RA7- 1 *+EP 
RA8= 1 *+3.*EP 
RA9= 1 • +RA6 


C3 = 2 • +EP 
EL “2 • *R A7 

IF (EM,EO.EMO) GO TO 150 D1 _^ 

NEW MACH NUMBER* ADJUST CONSTANTS WHICH DEPEND ON MACH NUMBER 


EMO= AM AX 1 < EM « • 1 E — 40 1 
EM=EMO 


C2=. 5* < GAM-1 • 1 
Cl =C2+ 1 •/■ ( EM*EM ) 

C5= 1 ♦/ f #5*GAM*EM*EM ) 
C6=C2*EM*EM 


C4=C6+1 • 

C7= 1 ./ <C5*C6> 

BET = SORT < 1 • — EM*EM ) 

J M0= 1 

150 OCR 1 T = 2 « *C 1 / (GAM+ 1 « ) 

IF (NS.GT.O) GO TO 160 


NS = 0 

IF ( I T YP • GT *0 ) CALL CRUDER 
GO TO 250 

160 IF (1TYP) 170*180*190 
170 CALL REFINE > 

GO TO 250 

SET UP CONSTANTS AND DO CONFORMAL MAPPING 
180 CALL AJRFOL 

TESLOP - IRAQ* ( 2 .0*TH (NMP + 1 ) + THU)) + 360*0>/3.0 
CALL RESTRT 


GO TO 250 

190 IF (IMO.LE.O) GO TO 200 
I M0 = 0 

CALL PHI RR 
200 CONTINUE 

CHECK TO SEE IF ANGLE OF ATTACK HAS changed 
IF I AB5 ( ALP— ALPO ) *GT • 1 *E“8 > CALL SICO 
Y= (XS-XM ) / ( 1 • -OCR I T > 

YM=XS-Y 

IF < XPH I • EQ ♦ 0 • ) YA-YA/ ( 2* *CHD ) 

COMPUTE INVISCID FLOW WITH A MAXIMUM OF NS CYCLES 
210 NCY=0 

1NVDI V=0 

DO 240 K=1 * NS 
CL=2.*0PHI*CHD 
CALL SWEEP 

CHECK FOR CONVERGENCE OF INVISCID SOLUTION 
IF ( AMAX 1 I VR « ABS I V A‘) ) ♦ GE • ST ) GO TO 220 
NCY-K 
GO TO 250 

check for divergence 

220 IF ( AMAX1 (YR* ABS( YA 1 ) *LT* 1 0#**I 0 ) GO TO 230 
NCY = K 
INVDl V= 1 
GO TO 250 
230 YA=YA*XPHI 

IF ( XPH I • NE ■ 0 • > YA-YA/<XPHI*XPHI) 

240 CONTINUE 
NCY^NS 


A 1 070 
A 1 080 
A 1 090 
A l 1 00 
Al 1 10 
A 1 120 
Al 1 30 
Al 140 
Al 1 50 
A 1 1 60 
A 1 1 70 
A 11 80 
Al 190 
A1200 
A1210 
A I 220 
A 1 230 
A 1240 
A 1250 
A 1260 
A 1 270 
A l 280 
A 1 290 
A 1 300 
A 1 3 I 0 
A 1 320 
Al 330 
A 1340 
A 1 350 
A 1360 
Al 370 
A 1380 
A 1390 
A 1 400 
A 1 4 1 0 
A 1420 
A I 430 
A 1 440 
A 1 450 
A 1460 
A I 470 
A 1480 
A 1490 
A 1 500 
A 1 5 1 0 
A 1520 
A 1530 
A 1 540 
A 1 550 
A 1 560 
A 1 570 
A 1 580 
A 1 590 
A 1600 
A 1 6 1 0 
A 1 620 
A 1 630 
A 164 0 
A 1680 
Al 660 
A 1 670 
A 1680 
A 1690 
a 1 7n o 
A 1 7 1 0 
A 1720 
A 1730 
A 1740 
A 1 750 
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250 


C 

C 


260 


C 


ALP=PAD*ALP 
j 7 yp= I A6S < I TYP > 

NCY0UT( IGRID+l oKCYCLE)=NCY 
IF (INVDIVoEOoO) GO TO 260 

IF <kCYClEoEOo 1 oANOo 1 GP1 DoEQoO) GO TO 260 

TERMINATE CASE IF INV’lSCID SOLUTION DIVERGES ON ANY CYCLE OTHEP? 

than THE FIRST WITH THE CRUDE GRID 

CLOUT ( IGRID+l «KC YCLE ) -999 o 0 

CONVOUT < IGRID+l *1 J“GR1D 

CONVOUT( 1GR1D+1 *2)=8HN0T CONV 

WRITE (N3) COMEoCOMC,Z 

K WR I T ( IGRID+l >=KCYCLE-1 

KSTOP= IGRID+l 

GO TO 340 

IF ( 1 T YPc GE q 2 ) CALL GETCP 
j F <iTYPoLTo2) GO TO 40 

CHECK FOR CONVERGENCE OF t N V I SC I D-FLOW/BQUNOARY-L A YEP ITERATIONS 
CALL CONVER ( I CHECK * KCYCLE CL <a Z * CPSURF * NC Y ) 

IF C 1NVD1 VoEQoO > CLOUT < I GR I 0+ 1 .KCYCLE > = CL 
IF ( I CHECK 0 EQ 0 O > GO TO 270 
KWRI TE-KCYCLE-1 


KCYCLE^KMAXCYC 

270 IF t I NVD I V o EG oO > CALL SETCP 
WRITE <N3) COME 9 COMC i Z 

l-F/B-L ITERATIONS HAVE NOT CONVERGED AND KCYCLE HAS NOT 
REACHED MAX 1 MUM VALUE * CONTINUE ITERATING 
IF (KCYCLEoLToKMAXCYC) GO TO 300 
KCYCLE^l 

IF < ICHECKoEQo 1 ) GO TO 280 
KWR!TE=KMAXCYC-1 
KWR1T1 IGRID+l >=KWRITE 
CONVOUT C IGRID+l .1 )-GRID 
CONVOUT < IGRID+l *2 )=8HN0T CONV 


GO TO 290 

200 KWRIT( IGRID+I )=KWRITE 

CONVOUT ( I GR I D+ l c M =GR I D 
CONVOUT ( IGRI D+I c2 ) -8H CONV 
290 KMAXCYC-KMAXCYC/2+2 
IB NHL AY (12 ) =KMAXCYC 
I GR 10= IGRID+l 

C REFINE GRID OR TERMINATE CASE 

GO TO 40 
300 alp=alp/rao 

C COMPUTE BOUNDARY LAYER AND DEFINE NEW I NV 1 SC I D AIRFOIL 

CALL BNDLAY 

kcycle=kcycle+i 

IF < ] GR IDoGToO } GO TO 310 
CALL REFINE 

310 IF (IGRIDoGTol) GO TO 320 
CALL REFINE 

C MAP NEW 1NVISCID AIRFOIL (WITH FINE GRID) 

320 CALL AIRFOL 
CALL RESTRT 
CALL COSI 


IF 

( 1 GR I Do GT a 0 > 

GO 

TO 

330 

CALL CRUDER 




330 I F 

{ IGRIDoGTol ) 

GO 

TO 

210 


CALL CRUDER 

C REPEAT 1 NV 1 SC 1 D SOLUTION WITH NEW AIRFOIL 

GO TO 210 
340 1 TYP-4 

IF (INVDIVoEOoO) ALP=ALP*RAO 

C OUTPUT LAST 1 NV I SC 1 D— FLOW/BOUNDARY-LA YER ITERATION IF OVERALL 

C SOLUTION CONVERGED * OTHERWISE OUTPUT ALL ITERATIONS 

WRITE < N2 * 950 ) 

WRITE <N4*1390) T l TLOUT « NRN 

WRITE <N4*127Q) EM , AlP ABNDL AY < I 8 ) * I 6NDL AY ( 1 3 ) 

K 1 =FNU 


K2-FNL 


A l 760 

A l 770 

A 1 780 

A 1 790 

A1800 

A 1 8 1 0 

A 1820 

A 1830 

A 1640 

A 1 850 

A I860 

A I 870 

A 1880 

A 1890 

A 1 90 0 

A 191,0 

A 1920 

A 1930 

A 1 940 

A 1950 

A I960 

A 197a 

A 1986 

A 1990 

A2000 

A2010 

A2O20 

A2030 

A2040 

A2050 

A2060 

A2O70 

A2080 

A2090 

A21 00 

A21 10 

A 2 1 20 

A21 30 

A2140 

A21 50 

A2160 

A21 70 

A21 80 

A2190 

A22O0 

A2210 

A2220 

A2230 

A2240 

A2250 

A2260 

A2270 

A2280 

A2290 

A2300 

A23 1 0 

A2320 

A2330 

A2340 

A2350 

A 2360 

A2370 

A2380 

A2390 

A2400 

A241 0 

A2420 

A2430 

A2440 
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K12-K1 +K2 
K2P 1 =K2+l 
REWIND N 3 

IF C NC ASE • GT • 1 > READ (N 3) COME * COMC » PH I « FP « A A * BB , A ♦ B • C * D . E t RHO « RP * 

1 R * RS ♦ R I * 5 ! «CO*Z*FM* PH I R 
IF f JNVDJ V#EQ. 1 ) CO TO 590 
IF ( [CHECK. EQ.O ) GO TO 590 
C OUTPUT LAST ITERATION 

DO 360 KK=1 f 2 
KWRT0UT=KWRI T (KK ) 

00 350 K= 1 « K WRTOUT 
READ (N3) COME t COMC ♦ Z 
READ ( N3 ) COMF 
350 READ (N3) COMF 
360 READ <N3> COME*CQMC*Z 
L OOP = 1 

KWRTOUT =KWR 1 T ( 3 ) 

370 READ ( N3 ) COME f COMC *Z 

IF IU00P*EQ*KWRT0U ( T ) GO TO 380 

LOOP -LOOP+ 1 

READ <N3) COMF 

READ (N3) COMF 

GO TO 370 

380 WRITE ( N4 « 960 ) 

WRITE ( N4 < 970 ) 

WRITE ( N4 * 980 ) 

WRITE (N4.990) 

15=1 BNDLAY ( 5 ) 

DO 390 K= 1 « 15 

XXXX = ABNDLAY ( 3 J+FLOAT (K-l >*ABNDLAY ( 2 ) 

390 WRITE *N4,I000> XXXX « CPBQL V < KPLUS > * BODCUR V < KPLUS ) * CPBDL Y ( K ) * 60DCUR 
1V(K) 

CDF-0 • 0 

DO 480 LOOP= 1 t 2 

IF (LOOP • EO • 1 ) WRITE (N4,tOlO> 

IF < LOOP • EO • 2 ) WRITE <N4*1020) 

WRITE <N4,!030) 

READ (N3) COMF 
DO 400 K=2 * KKK 

400 WRITE ( N4 « 1040) XBL < K > tOELBL (K ) * THETBL (K ) • HBL ( K > • CFRBL <K > 

XBL (KKK+1 ) = 1 .0 

CFRBL ( KKK -M )*CFRBLfKKK> 

GO TO ( 41 0 t 420 t430 * 440 • 450 J • <T YPE 
410 WRITE < N4 * 1 050 ) 

GO TO 460 

420 WRITE ( N4 * 1 060 ) 

CFR0L t KKX+ 1 ) = 0.0 
GO TO 460 

430 WRITE t N4 % I 070 ) 

GO TO 460 

440 WRITE (N4*1080> 

GO TO 460 

450 WRITE ( N4 « 1 090 > 

C COMPUTE FRICTION DRAG < APPROX ) 

460 DO 470 K- 1 i KKK 

470 CDF=CDF+0,S* (CFRBL CK+1 ) +CFRBL ( K > >* (XBL (K+l >-XBL (K > > 

480 CONTINUE 

read CN3) COME * COMC * Z 
DO 490 K=K2P I *KI 2 
KMN=K-K2 

XTMrKMN)^xBODY(K) 

490 DELTM<KMN)=DELBLX <K 1 
DO 500 K= 1 • 100 

XPLOT(K )=FLOAT (K)*0.01 

CALL D I SCOT (XPLOT (K > « XPLOT (K ) * X TM , DELTM ♦ DEL TM * - 0 1 0«K I DELBLXF ( K 

l»2)l 


A2450 

A2460 

A2470 

A2480 

A2490 

A2500 

A251 0 

A 2520 

A 2 530 

A 2540 

A2550 

A2560 

A2570 

A 2560 

A2590 

A2600 

A2610 

A2620 

A2630 

A 2640 

A 2650 

A2660 

A2670 

A2680 

A 2690 

A2700 

A2710 

A2720 

A2730 

A2740 

A2750 

A2760 

A2770 

A2780 

A2790 

A2800 

A2810 

A2820 

A2830 

A2840 

A2850 

A2860 

A2870 

A2880 

A2890 

A2900 

A2910 

A2920 

A2930 

A2940 

A2950 

A 2960 

A 2970 
A2980 
A 299© 

A^6o6 

A3010 
A3020 
A3030 
A3040 
A3050 
A3060 
A 3070 
A3080 
A3090 
A3 1 00 
A31 10 
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500 DELBLXF <K,2 l = lOO.O*DEl-BLXF (K*2 ) 

DO 5 1 0 K=t *K2 
XTM [ K ) = XBODY < K ) 

510 DELTM ( K ) =DELBLX l K ) 

DO 520 K = 1 * 1 00 

CALL DISCOT ( XPLOT (K ) i XPLOT < K ) * XTM 4 DELTM ♦ DELTM 9- 
1 * 1 )) 


‘0 1 0 *K2« O « DEL8LXF ( K 


520 


530 

540 


550 


0EL9LXF (K 4 1 > = 1 00 «, 0*0ELBLXF < K » I ) 

CALL PLOTN < 2 4 t 00 . SO « XPLOT 4 DEL0LXF 4 P YS . 2 4 t O 0) 

WRITE ( N4 t 1 1 00 > 

WRITE < N4 • 1 I 1 0 ) 

WRITE ( N4 9 l I 20 ) 

IF (K2aLE«K! ) GO TO 530 

NM1 NIM=K1 

GO TO 540 
NM1NIM-K2 
DO 550 K = 1 * NMlNlM 

TE^ N4 .1130, XBODY ( KPLS , , YBODY ( KPLS ) .BODSLOP ( KPLS , , OELBLX (KPLS I 
1 , KNEW < KPLS J . YNEW (KPLS 1 . XBODY <K 1 . YBODY (K 1 . BODSLOP ( K ) .OELBLX (K > .XNEW 

ZiK) 9 YNEW (K ) 

NM1 N1 -NM 1 N I M+ 1 
IF <k2*EG«KI ) GO TO 570 

WRITE ( N4 a 1 1 40 ) ( XBODY ( K ) 9 YBODY < K > 4 BODSLOP ( K ) 9 OELBLX < K ) 4 XNEW ( < ) * YN 

LEW (K ) 9 K=NM INI 9 K2 ) 


GO TO 570 
560 KST=K2+NMIN1 

WRITE (N4 4 U 50 ) t XBODY (K ) 9 YBODY < K > ,B00SL0P (<) 
IEW(K 1 ,<=KST*K12 ) 

570 WRITE (N4fll60> 

WRITE ( N4 4 1 170) 

WRITE < N4 * 1 1 00 ) ( Z (K ) * CPSURF (K ) ♦ K= 1 9 MM ) 

KC YCLE -KWR 1 T ( 1 OR 1 04- 1 ) + 1 


4 OELBLX ( K ) 9 XNEW <K > ♦ YN 


CALL FORCES (CDF) 

CL DEFINED FROM CIRCULATION EXCEPT FOR LAST CYCLE 9 
PRESSURE COEFFICIENT INTEGRATION 
CL I -CLOUT ( 1GRI 0+ t 4 KC YCl£ > 

WRITE t N4 * 1 1 90 ) CLttCMOUT^X 
DO 580 K=1 4 1 00 

CALL DISCOT (XPLOT <K > tXPLOT (K ) 4 XTEMLO tCPLO»CPLO»*0 
1 T < K ♦ 1 ) } 

CPPLOT CK * I.) =~CPPLOT <K ♦ 1 > 

CALL D l SCOT < XPLO T ( K ) 9 XPLO T ( K ) * XTEMUP 4 CPUP , CPUP 9 -0 
1 LOT ( K 9 2 > ) 

58C CPPLOTlK.2 >=-CPPLOT<K*2) 

NPLOT “ — 2 

CALL PLOTN { NPLOT 4 1 00 4 50 4 XPLOT 9 CPPLOT 4 PYS * 2 4 I 00 > 
CALL GRAFIC 


WHICH USES 


1 0 *KOUN T 4 0 4 CPPLO 


10 9KOUNTUP,04 CPP 


kplot=kplot+ 1 
GO TO 880 

C OUTPUT ALL ITERATIONS 

S9C WRITE ( N4 * 1 200 1 
DO 600 K*1 4 ! 00 
600 XPLOT ( K ) =FLOAT (K ) *0.01 
DO 860 KK ~ 1 9 3 
IF < KK *EQ. M GO TO 610 
KKMN-KK-1 

WR 1 T£ ( N4 4 1 240 ) CONVQUT ( KKMN 4 1 ) 4 CONVOUT ( KKMN 4 2) 
WRITE ( N4 « 1250 ) CONVOUT ( KKMN *1)4 CONVOUT < KK 4 l ) 
610 LOOP=l 

620 READ (N3) COME . COMC 4 7 

IF < 1NV0 IV* EQ* 0 ) GO TO 640 

WRITE <N4 *1340 1 LOOP 4 CONVOUT < KK 4 1 ) 

IF (LOOP. EO. 1 .AND. IGRl D.EG.O ) GO TO 630 
WRITE < N4 4 1 350 ) 

GO TO 870 
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A3 1 30 

A31 40 

A31 50 
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A3 1 70 
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A 3 1 90 
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A321 0 
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A3230 
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A 3290 
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A3350 
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A 3380 

A 3390 

A3400 
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A 3430 

A 3440 

A3450 

A 3460 

A 3470 

A3A80 

A3490 

A 3500 

A 35 1 0 

A3520 

A3530 

A 3540 

A 3550 

A 3560 

A3570 

A3580 

A3590 

A 3600 

A361 0 

A3620 

A 3630 

A 3640 

A 3660 

A3660 

A3670 

A3680 

A 3690 

A3700 
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A3720 

A3730 

A 3740 

A 3750 

A3760 

A3770 
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630 WRITE ( N4 ♦ 1 360 ) 

I SKIP® l 

READ (N3) COMP 
READ <N3) COMF 
LOOP=LOOP+l 
GO TO 620 

64 0 IF { LOOP • EQ • l ) GO TO 740 
IF ( I SK l P • EQ • 1 ) GO TO 740 
DO 650 K=K2P 1 *K 1 2 
KMN=<-K2 

XTM (KMN )=X0ODY (K ) 

650 DELTM ( KMN ) = DELBLX ( K ) 

DO 660 K= 1 * 1 00 

CALL D I SCOT ( XPLQT < K > t XPLOT ( K ) • XTM , DELTM ♦ DEL TM * - 0 I 0 4 K 1 • 0 * DELBLXF <K 
1*2)) 

660 DELBLXF (K,2 > = 1 0 0* 0*DELBLXF (Ki2> 

DO 670 K= 1 * K 2 
XTM (K ) =XBOOY (K > 

670 DELTMtK )=DELBLX (K ) 

DO 6B0 K=1 i 100 

CALL DI SCOT (XPLOT (K ) .XPLOT <K ) . XTM , OELTM « DELTM *-0 1 0 * K 2 * 0 * DELBLXF (K 
1 * 1 > > 

680 DELBLXF (K » l ) = 1 00* 0*DELBLXF (K , 1 ) 

CALL PLOT N (2*1 00 *50* XPLOT * DELBLXF * PYS • 2 * ICO > 

WRITE (N4.1100) 

WRTTE (N4,lt!0) 

WRITE IN4,Il20> 

IF ( K2 « LE • K l > GO TO 690 
NMINIM=K1 
GO TO 700 
690 NM IN I M~K2 
700 DO 710 K= 1 * NM I N 1 M 
KPLS=K+K2 

710 WRITE ( N4 * 1 1 30 ) XBODV ( KPL5 ) * YBODY ( KPLS ) * BOD SLOP < KPLS ) * DELBLX (KPLS > 

1 .XNEWIKPLS ) * YNEW (KPLS) *XBODY (K ) * YBOD Y < K ) * BOD SLOP ( K ) * DELBLX (K ) *XNEW 
2(K)*YNEW(K) 

NMTN1 =NM 1 N l M+ 1 

IF ( K2 *EQ*K 1 ) GO TO 730 

IF ( K2 * LT • K 1 ) GO TO 720 

WRITE (N4 « 1 1 40 ) ( XBOOY (K ) i YBODY (K > • BOD SLOP (K > * DELBLX <K ) , XNEW (K ) ♦ YN 

1 EW <K ) • K “NM INI * K2 ) 

GO TO 730 
720 KST=K2+NM]N1 

WRITE ( N4 i | 150) ( XBODY < K ) t YBODY (K ) *BODSLOP (K > * DELBLX (K )*XNEW(<) * YN 

1 EW (K ) * K =KST * K 1 2 ) 

730 WRITE (N4* 1 160 ) 

740 WRITE ( N4 * 1210) LOOP * CON VOUT < KK ♦ 1 ) 

I SK I P = 0 

WRITE ( N4 *1220) 

WRITE ( N4 *1180) < Z ( K > . CPSURF < K > , K= 1 . MM > 

KCYCLE=LOOP 

IF (KK.EQ.3) CALL FORCES (CDF) 

CL DEFINED FROM CIRCULATION EXCEPT FOR CYCLES WITH FINE GRID. 

WHICH USE PRESSURE COEFFICIENT INTEGRATION 
CL I =CLOUT ( I GP I D+ 1 * KC YCLE ? 

IF ( KK • EG « 3 ) WRITE (N4.1190) CL1.CM0UT.X 
IF ( KK • NE » 3 ) WRITE < N4 . 1 4 1 O > CL 1 
DO 750 K= 1 * I O0 

call D i S cot < xplot <k i * xplot <k i * xtemlo* cplo.cplo * - o i o *kount • o.cpplo 

1 T (K * 1 ) > 

CPPLOT < K. 1 )=-CPPLOT <K. 1 ) 

CALL D I SCOT (XPLOT (K ) * XPLOT ( K ) * XTEMUP* CPUP , CPUP . ~0 1 0 * KOUN TUP * O * CPP 
1 LOT < K * 2 ) ) 

750 CPPLOT ( K *2 ) =-CPPLOT (K * 2 ) 

NPLOT — 2 

CALL PLOTN (NPLOTi 100.50,XPLOT*CPPLOT*PYS42, 100) 

IF < KK • EQ • 3 > CALL GRAF I C 

IF ( KK * EQ ■ 3 ) KPLOT=KPLOT+2 

IF <LOOP*GT.KWRI T (KK ) ) GO TO 860 


A3790 

A 3 800 

A 381 0 

A 3820 

A3830 

A 3840 

A3850 

A3660 

A307O 

A 3860 

A3B90 

A 3900 # 

A3910 

A 3 920 

A 3 93 0 

A3940 

A 3950 

A3960 

A3970 

A3980 

A3990 

A4000 

A401 0 

A4020 

A4030 

A4040 

A 4 050 

A4060 

A4070 

A4080 

A4090 

A4I 00 

A 4 1 10 

A41 20 

A4 1 30 

A4 140 

A4I 50 

A4160 

A4 170 

A4180 

A 4 1 90 

A 4 2 0 O 

A 42 1 0 

A4220 

A4230 

A4240 

A4250 

A4260 

A4270 

A4280 

A 4 290 

A 4 300 

A43 1 0 

A 4 320 

A4330 

A 4 340 

A4350 

A4360 

A4370 

A4380 

A4390 

A4400 

A 44 1 0 

A4420 

A4430 

A4440 

A4450 

A4460 

A4470 
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WRITE t N4« 1230) 

WRITE ( N4 o 980 ) 

WRITE ( N4 « 990 > 

I5-I0NDLAY(f>) 

DO 760 K=|*I5 

XXXX*ABNDUAY (3 J+FLOAT <K-I ) »ABND|_AY ( 2 ) 

760 WRITE**<N4*I000) XXXX , CPBDL Y CKPLUS ) .BODCURV < KPLUS > .CPBOLY < K ) . BODCUR 
1V(K) 


COF = 0*0 

00 850 IMLP1 =1 <2 

IF (INLPloEOpl ) WRITE < N4 9 1 0 1 0 > 

IF < INLP1 ®EOe2 ) WRITE (N4.1020) 

WRITE ( N4 • 1 030 ) 

READ <N3) COMF 
DO 770 INLP2=2«KKK 

770 WRITE t N4 * l 040 ) XBL < I NLP2 ) ■> OELBL I 1 NLP2 > 9 THETBL t 
J FRRL< INLP2 > 

X8L < KKK+J ) = 1 oO . 

CFRBL (KKK+l ) =CFRBL < KKK ) 

GO TO <7a0<790*80098l0.820) 9 KTYPE 
780 WRTTE ( N4 9 | 0 50 ) 

GO TO 830 

790 WRITE ( N4 * 1 060 ) 

CFRBLtKKK+1 )=0 o O 
GO TO B30 

800 WRITE <N4,1070) 


I NLP2 ) 9 H0L ( I NLP2 ) 9 C 


GO TO 830 

810 WRITE <N4,10B0> 

GO TO 830 

820 WRITE ( N4 * 1 090 ) 

830 IF IKKoEQol) GO TO 850 

IF < KK ♦ EQ o2» AND* LOOP «NEa KWR 1 T < 2 ) ) GO TO 850 
: COMPUTE FRICTION DRAG (APPROX) 

DO 840 K - t *KKK 

B40 CDF=CDF+G*5* (CFRBL (K + l )+CFRBL(K) )*(XBL(K+l >-X0L(K> ) 

850 CONTINUE 

UOOP=LOOP+ 1 
GO TO 620 
860 CONTINUE 

WRITE ( N4 *1240) CONVOUT (3*1 ) * C0NVOUT ( 3 o 2 ) 

870 WRITF <N4„950) 

OUTPUT SUMMARY OF OVERALL ITERATION (CL DEF 1 NE D FROM 
: CIRCULATION EXCEPT FOR LAST CYCLE) 

880 WRITE <N4q1260> NRN*TITLOUT 

WRITE ( N4 9 1 2 70 ) EM 1 A(_P « ABNOL A Y ( 1 B ) • 1 SNDL A Y ( 13) 

DO 900 K = I 9,K ST OP 

WRITE IN4*1280) CON VOUT ( K * 1 > * CON VOU T ( K * 2 ) 

WRITE (N4,1290) 

KWRT OUT =KWR 1 T (K ) 

OO 090 KK=1 .KWRTOUT 

WRITE (N4*1300) KK.CtOUT(K.KK).NCYOUT<K«t<K) 

890 WRITE ( N4 *1310) SUPOUT < K • KK ) 9 SLO WOUT ( K « KK ) 

KWR TOUT -KWRTOUT + 1 ^ 

900 WRITE ( N4 » 1 300 ) KWRTOUTt CLOUT 9 KWRTOUT ). NCYOUT (K 9 KWRTOUT ) 

IF ( CLOUT (1 ■>! ) *GT *990 • 0 ) WRITE (N4« 1360) 

IF ( CLOUT ( KSTOP * KWRTOUT ) • L T • 990 « 0 ) GO TO 910 
WRITE f N4 « l 370 ) 

IF C KST OP 0 LT © 3 ) KWRT0UT=1 
KWRTOUT =KwRTOUT~l 
WRITE ( N4 9 1 300 ) KWRTOUT 
GO TO 920 

910 IF ( iCHECKcEQU I WRITE (N49I320) 

IF ( 1 CHECKpEG.O ) WRITE (N4*t330) 

920 IF < NCASEoEO® I RUN ) GO TO 930 
RFWIND N3 
I RUN - I RUN+ 1 
KONTROL =3 

C GO TO NEXT CASE 
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A4500 
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A 4 520 

A4530 

A4540 

A4550 

A4560 

A4570 

A4580 

A4590 

A4600 

A461 0 

A4620 

A4630 

A 4 640 

A4650 

A4660 

A4670 

A4680 

A4690 

A4700 

A47 1 0 

A4720 

A4730 

A4740 

A4750 

A 4 760 

A4770 

A4780 

A 4 790 

A4800 

A4810 

A4B20 

A4830 

A4840 

A4850 

A 4860 

A4R70 

A 4880 

A4890 

A4900 

A49 1 0 

A4920 

A 4 930 

A494C 

A4950 

A4960 

A 4 970 

A4980 

A4990 

A5000 

A501 0 

A5O20 

A5030 

A5040 

A 5050 

A 5060 

A507C 

A5080 

ASC90 

AS 1 00 

A51 10 

AS 1 ?C 

A51 30 

AS! 40 

AS 1 50 

A5160 
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c 


c 

c 


GO TO 30 
TERMINATE PLOT 

930 IF ( KPLOT • GT ■ O ) CALL CPLOT ! < 0 . * 0 . ) * 999 ) 
IF (NCASE*GT*1 ) WRITE (N4,1400> KPLOT 
CALL EXIT 


940 FORMAT ( 5F 10*0 ) 

9*50 FORMAT (1 HI) M _ 

960 FORMAT i////////////////////3**6 n H *********************** ********* 

] **********»*****************/35X60H* THE 1 NV I S C I D-FLO W / BOUND 

2ARY-LAYER ITERATION HAS -*/35X60H* CONVERGED AND THE RESULTS FO 

3R THE FINAL ITERATION FOLLOW */35X60H* ***** * ** **** ** ***** ********* 

4 ********************** ********* ) 

970 FORMAT ( 1H1 68HINPUT FOR BOUNDARY LAYER CALCULATION FROM PREVIOUS IN 
IVISCID SOLUTION) 

980 FORMAT! 1H016X25H***** UPPER SURFACE ***** 1 0X25H***** LOWER SURFACE 

l ***** ) 

990 FORMAT (1H05H x/C ♦ 1 5X • 2HCP * 1 2X4HCURV * 1 7X2HCP * 1 2X4HCURV ) 

1 000 FORM AT ( F6 • 3 » 5X « 2F 1 5* 6* 5X * 2F l d ■ 6 ) 

1010 FORMAT f I HI 28HUPPER SURFACE BOUNDARY LAYFR) 

10?0 FORMAT! 1H128HL0WER SURFACE BOUNDARY LAYER) 

1030 FORMAT < 1 H05H X/C * QX .9HDEL5T AR/C < 7X , BHMOMNTM/C , i OX * 1 HH * 1 1X.2HC.F) 

1 040 FORMAT (F6.3<F15*5*F15*4.F]5«3«E15.3> 

1050 FORMAT ( 1H0I 3HRUN COMPLETED) 

1060 FORMAT ( IH01 OHSEPARAT I ON ) 

1070 FORMAT ( l H021 HAAT IS LESS THAN -1*0) 
lOBO FORMAT ( 1 HOI 5HP? IS IMAGINARY) 

1090 FORMAT < 1 HO 1 5HT0R IS NEGATIVE) 

]I00 FORMAT ( 1H093H ADDITION OF BOUND 

1ARY LAYER DELSTAR TO AIRFOIL COORDINATES) 

]1)0 FORMAT ( 1H01 1 2H ***** UPPER SURFACE ***** 

1 ***** lower SURFACE ***** ) 

1120 FORMAT ( 9H0 X— BODY * 1 OH Y-B0DY*10H THETA *1 IH DELSTAR*9H 

1 X-NEW.10H Y-NE W ♦ 20H . X-BODYUOH Y-B0DY,10H 

2 THETAUIH delst AR * 9H X<-NEW<10H Y-nEW ) 

1 130 FORMAT(2Fl0*6*Fl0.3t3Fl0.6i 1 0X« 2F 1 O .6 t F l 0 • 3 ♦ 3F 1 0 . 6 1 
1 1 40 FORMAT ( 70X» 2F 10-6<F!0*3*3F10-6) 

1150 FORM AT ! 2F l 0 • 6 • F 1 0 • 3 • 3F 1 0 • 6 ) 

1160 FORMAT tl H086HNOTE THAT THE TRAILING EDGE OF THE EQUIVALENT AIRFOIL 

1 IS REDEFINED SO THAT X/C = 1*000) 

1170 FORMAT ( 1H155HPRESSURE DI STRI BUT1 ON VS EQUIVALENT AIRFOIL COOROIN4T 
l ES//5X • 3HX/C « 7X * 3HY/C* 7X«2HCP ) 

1180 FORMAT < 3F 1 0.6 ) 

1190 FORMAT ( 1 M05HCL = *F5 « 3 * SX * 5HCM - * F5 • 3 ♦ 5X ♦ 5HCD = •F7»5> 

1 2 00 FORMAT < ///////////// / / / / / //37X56H*** **** *** *********************** 

^ ****** *****************/37X56H* THE l NV 1 SC ! D-FLO W / BOUNDARY-LAYER 

2 ITERATION HAS NOT */37X56H* CONVERGED ANO THE RESULTS FOR ALL I TE 

3RATI0NS FOLLOW */37X56H****************************************** 
4 **************) „ tni% 

1210 FORMAT! 1H124HINVISC1D SOLUTION NUMBER * I 2 . 1 OH WITH THE *A6«5H GRID) 
1220 FORMAT! 1H055HPRESSURF DISTRIBUTION VS EQUIVALENT AIRFOIL COORD I NA T 
1E5//5X*3HX/C«7X « 3HY/C « 7X * 2HC.P ) 

1230 FORMAT ( 1H068HINPUT FOR BOUNDARY LAYER CALCULATION FROM PREVIOUS IN 
IVISCID SOLUTION) 

1240 FORMAT (/////// ////////// ///56H0T HE I NV 1 SC 1 D-FLOW / BOUNDARY-LAYER 
1 ITERATIONS WITH THE *A6i 10H GRID ARE tA8> 

1250 FORMAT (//20HOTHE GRID IS REFINED FROM A % A6 « l 1 H ME SH TO A <A6«5H M 


1ESH) 

1260 FORMAT ( IHOt 4HSUMMARY OF RUN « I 4 * 4 H FOR « 1 5A4 ) 

1270 FORMAT! 1H06HMACH = , F5 • 3 , 5X , 7HALPHA = , F6 ♦ 2 t 5X « 1 2HRN X 1 OE-6 =«F6.2f 
15Xi 6H I F I X I3> 

1280 FORMAT ( 1 H023HCALCULAT I ONS USING THE »A6*7H GRIO <*A6*1H)> 

1290 FORMAT ( 1 H05HC YCLE ♦ 1 2X i 2HCL ♦ 1 IX* 3HNC Y <7X< 1 lHX/C UPP SEP * 4X i 1 l HX/C L 
IOW SEP/ > 

1300 FORMAT < 14 * 1 1 X «F6«3* 1 OX * I 3 ) 

1310 FORMAT ( 44Xf F5 • 3 ♦ 1 OX • F5« 3 ) 

1320 FORMAT ( 1 H029HONE CALCOMP PLOT IS GENERATED) 

1330 FORMAT ! 1H032HFOUR CALCOMP PLOTS ARE GENERATED) 
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A 5 1 80 
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A5400 
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A 5450 

A5460 

A5470 

A5480 

A5490 

A550O 

A5510 

A5520 

A5530 

A5540 

A5550 

A 5 560 
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A550O 

A5590 

A5600 

A561 0 

A5620 

A 5630 

A 5640 

A5650 

A5660 

A5670 

A5680 

A5690 

A5700 

A57l 0 
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A 5760 

A5770 
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A5790 
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A581 0 
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A5830 
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1340 FORMAT* 1H124HINV1SCIO SOLUTION NUMBER » I Z .( OH WITH THE .Afi.lBH GRID 

1350* FORMAT UH060HTHE I NV 1 SC I D-FLOW / BOUNDARY -LAYER ITERATIONS ARE TER 

1360 FORMAT < 1 H076HA NOMINAL BOUNDARY LAYER IS USED TO RESTART THE SOLUT 
II ON ON THE SECOND CYCLE) 

1370 FORMAT < I H04BHTHE I NV I SC ID SOLUTION DIVERGED ON THE LAST CYCLE) 

1380 FORMAT* 1H09HTHERE ARE.T2.24H CAlCOMP PLOTS GENERATED) 

1390 FORMAT ( 1 5A4 * 4HRUN *13) ' __ _ . 

1400 FORMAT ( 1 H 1 1 1 HA T0T4L OF CALCOMP PLOTS ARE GENERATED FOR TH 

1 I S JOB ) 

1410 FORMAT ( l H05HCL = *F5 q3) 

END 

SUBROUTINE A1RF0L 

READS IN DATA FOR AIRFOIL AND MAKES INITIAL GUESS FOR MAPPING 
FUNCTION BY COMPUTING FOURIER COEFFICIENTS 
C IF ONLY X « Y COORDINATES ARE PRESCRIBED SMOOTHING IS DONE 

COMMON PH 1(1 62 * 33 ) *FP ( 3 62*33) 

COMMON /B/ AA ( 1 00 > * 0R (100) 

COMMON /C/ M*MM*MP,N,NN*LL*LP* MM, I MM * I M3 , I I * J J * I K » JK * I Z * 1TYP*MXP 
1 *NS*NCY,TE«PI * RAD * TP , TP I * pT *DR*DELTH* DELR *RA*RAS*RA2*RA3 oRA4« RA5 * 5 

2M*QCRlT*Cl *C2*C4*C5 oC6*C7*B£T*EPSIL*TC*CL*CHD*ALP*AlPO*DPHI *XPHI *C 

3N * SN * EP * C3 * R A7 * R A8 * R A9 * EL * XM * XS * FSYM <> ST * X * Y * YM * XA ■» YA*AQ*BO*KP * YR * E 

4M0*FE * IDtMoNFC »NMPt I S * N2 * N 3 * N4 * N5 * M4 *NRN qNCASE 
COMMON /E/ KCYCLEoFNU^FNLq IBNDLAY (|3) * ABNDLAY < 1 9 ) * XBODY ( 1 62 ) t YBODY 

I <162 > *BOOSLOP< 162 ) * BODCuRV < 02 ) * XNEW < 3 62 > * YNEW< 162 ) *CPSURF < 162 )«CPB 
2DLY <B2 ) <» 1GRI D->GR1D* XUPLE (20 ) *XUPARC f 20 M XLOLE <20 ) * XLOARC ( 2 0 > * Tl TLO 

DIMENSION XXLO(155l* XX UP C l 55 ) * SUML0<155)* SUMUP<155>* XXL0T<155) 

SUMLOTU55)* XTECUR ( 3 > * TECUR C 3 ) 

COMPLEX Z 

COMMON /A/ A <40 1 *B<40 > *C<40 > *D<40 > *E <40 ) * RHO < 40 ) * RP < 4 0 ) « R f 4 1 ) *RS <4 

II ) *RI <41 ) iSI U62) *C0<162)*Z< 162 1 *FM< 162) *PHIR< 1621 

DIMENSION XX Cl)* YY < 1 ) * ClRCUU TT < l > * DSIIh TITLEU5X CX<1)9 S 


1 X < 1 > 

COMMON /G/ SS <31 0 ) «TH< 31 0 1 *U <31 0 > * V ( 31 O > « W ( 31 0 1 *SP < 310 1 
EQUIVALENCE ( XX < t ) * FP (1*2) ) * < YY ( l ) *. FP ( 1 *5 > ) * ( C IRC < 1 ) *>FP (1 *9 I U < 

1 TT ( 1 ) »FP < I * 1 3 ) > * (DS< I > *FP t l * 17 )> « (TlTLEU UFPU *3 )>» <CX<1>*FP(1 

2*2! 1 ) o <SX< I > * FP < 1 *25) ) 

SMOOTH (Qi*Q2®Q3'Q4*G5) = «0625#tQl+05+4<»*tQ2 + Q4)+6a*C>3) 

SMTH <01 *02*03 ) = o25* (01 +Q2+Q2+Q3 > 

DIS<Q1 >=<Q1-ERR>*< (Ol-ERR)*- (Ql-ERR 5+CONST ) 

T OL - 1 *E-6 
C ONS T = o2 
VAL=4HRUN 
XT-ABS < TE ) 

c NMP IS THE NUMBER OF POINTS IN CIRCLE PLANE FOR FOUR I FR SERIFS 

LC -NMP/2 
MC=NMP+ 1 

PILC=PI/FLOAT(LC) 

IF ( KCYCLE oEQ« 1 ) GO TO 30 

C REPLACE COORDINATES WITH NEWLY DEFINED EFFECTIVE INVISCID 

c airfojl geometry 

NT=FNU+FNL- 1 ® 

DO l o I =NL«NT 
XX ( ! ) - XNEW ( I +1 ) 
to YY< 1 1 = YNEW < I + l ) 

DO 20 1=1 *NL 
J=NP~t 

XX < J )=XNEW( 1 1 
20 YY < J)=VNFW( 1 ) 

XM I N=X X < NL ) 

GO TO 70 

30 WRITE (N4*490) 

WRITE I N4 * 520 ) 

REWIND N3 

READ ( N3 * 500 1 TITLE 
DO 40 1=1*15 

40 T I TLOUT ( I ) =T ITLEt 1 > 


A5860 
A5870 
A580O 
A5890 
A5900 
A5910 
A5920 
A5930 
A5940 
A5950 
A5960 
A5970 
A5980- 
B 1 0 
B 20 
B 30 
B 40 
B 50 
B 60 
B 70 
B &6 
B 90 
B 1 00 
B 110 
B 120 
B 1 30 
B 140 
8 I 50 
B 160 
B 1 70 
B 100 
B 190 
B 200 
B 210 
B 220 
B 230 
R 240 
B 250 
B 260 
B 270 
B 2B0 
B 290 
B 300 
B 310 
B 320 
B 330 
B 340 
B 350 
B 360 
B 370 
B 380 
B 390 
B 400 
0 410 
B 420 
B 430 
B 440 
B 450 
B 460 
0 470 
p. 4R0 
B 490 
0 500 
0 5t0 
0 520 
B 530 
B 540 
0 550 
B 560 
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C READ IN AIRFOIL DATA FROM CARDS B 570 

C AND STORE ORIGINAL BODY COORD1NATFS 0 080 

READ <N3*510) FNU *FNL*FnOASE 0 590 

NCASE=FNCASE 8 600 

IF (NCASE.LT. 1 ) NCASE=1 0 610 

EPS I L - 1 • I B 620 

READ (N3*A90) 8 630 

NT=FNU+FNL-1 * B 640 

NL=FNL 8 600 

NP=NL+l 8 660 

RE AO ( N3 * 5 1 O ) (XX( I) tl =NL.NT) b 670 

READ ( N3 « 5 1 0 ) (YY( l ) . I *NL«NT ) 3 680 

DO SO I -NL « NT B 690 

XBODY( I+l )-XX( I ) 8 700 

50 Y0ODY ( I+l )=YY< M B 710 

READ (N3.490) B 720 

READ (N3«510) ( XBODY < I ) t I = 1 < NL > B 730 

READ (N3.510) ( YBODY ( I ) « 1 = I « NL 1 0 740 

DO 60 I=liNL 8 750 

J-NP-I 8 760 

XX ( J ) =XBODY ( I ) 8 770 

60 YY ( J i = YBODY ( I ) 8 700 

XM I N = XX ( NL ) 8 790 

REWIND N3 8 000 

C DEFINE- SLOPES SO THAT ARC LENGTHS CAN BE COMPUTED TO FIRST ORDER B 810 

70 DO 80 1 = 1 * NT B 820 

80 TH (!) =0 * R 830 

SP ( 1 > =0 • 8 840 

SUM=0. R 880 

DO 90 l = 2 *NT B 860 

DUM=AMAX1 ( • 1 E-20, ABS t .5* (TH( I >-TH< I -1 ) ) ) ) B 870 

UP=XX( I )-XX< 1-1 ) B 080 

VP = YY(I 1 — YY(t — I ) 8 090 

SUM=SUM+SQRT (UP*UP+VP*VP ) # DUM/S 1 N ( DUM ) 8 9 00 

90 SP ( I > = SUM B 9t 0 

ARC=SP<NT) B 920 

SN=?./ARC 8 939 

SCALE= .25*ARC r 940 

EE= • B* ( 1 ♦ -EPS I L ) B 900 

DO 1 OO L= 1 t NT B 960 

100 SS CL ) = ACOS ( 1 ♦ -SN+SP ( L ) J , v 8 970 

SS<NT)=P! 8 990 

CALL SPLlF < NT * SS ■ XX « U « SP * W ♦ 1 VO • « 1 ♦ 0 * > 1 8 "0 

CALL SPLlF (NT.SS. YY.Vt TT.DS* 1 «0# * 1 *0* ) BlOOO 

IF ( KC YCLE • NE • 1 > GO TO 110 B1010 

KKK = 1 B 1 020 

UTFMP1 =U (1 ) 8 J 030 

VTPMP 1 =V ( 1 ) B10A0 

UTEMP2 = U ( NT 1 B10FC 

VTFMP2 = V ( NT ) B 1 060 

C COMPUTE SLOPES OF ORIGINAL BODY 91070 

GO TO 170 B1080 

110 DT=PI /FLOAT (NMP ) BJ090 

ERP=SS(NL) BiloO 

dum=o i s (0 » > b i n o 

FAC=P1X (DIStPI )-DUM > B1120 

DO 120 L=1*MC B II 30 

120 CIRC<L>=FAC*(D!S<FL0AT(L-1 >*DT)-DUM) B1140 

CALL 1NTPL (NMP»CIRCiSX»SSiXXiU»SPi W) B 1 1 50 

CALL INTPL < NMP «C [RC.CX«5S*YY*V* TT .OS) B1160 

SX (MC } =XX (NT ) B1170 

CX (MC ) =YY (NT ) BllBO 

DO 130 L=2 . MC B1I90 

XX (L ) = SX ( L ) B12O0 

130 YY(L>=CX(L> 0 1 2 1 0 

GR I D = 6H CRUDE B 1 220 

IF ( I GR I D • EQ • 1 ) GRI D=6HMED I UM B1230 

IF (IGRID.EQ.2) GR 1 D=6H FINE B1240 
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IF ( I S o EQ o 0 > GO TO I 60 

C DO IS smoothing iterations 

DO 150 K“ 1 4 IS 

XX <2 )-SMTH(SX C I ) *SX (2 ) « SX( 3 ) > 

YY ( 2 >=SMTH(CX( 1 ) « CX 12) «CX( 3 ) ) 

XX (NMP I =SMTH(SX I MC ) 9 SX (NMP ) , SX CNMP-l ) ) 

YY (NMP ) =SMTH (CX(MC } * CX ( NMP ) *CX < NMP-1 ) ) 

DO 140 L=4»NMP 

XX(L-1 J = SMOOTH (SX (L-3 ) o SX ( L-2 > « SX (L-l ) <SX(L ) «SX(L+! ) ) 
140 Y Y < L— I >=SMOOTH(CX(L-3)9CX(L-2) t CX f L- 1 J i CX CL ) « CX < L+ 1 > > 
DO 150 L=2->NMP 
SX (L )=XX(L) 

150 CX<L)=YY(L> 

160 NT -MC 

CALL SPLIF (NT 9 C I RC » XX *U<SP l «Q M I gQi ) 

CALL SPLIF ( NT « C I RC * YY • V • T T « DS « UOo ; 1 «0a ) 

170 U( 1 )*SP( 1 ) 

V(1 )“TT(1 ) 

U ( NT )=SP (NT ) 

V (NT >-TT (NT ) 

DO 180 L= 1 « NT 
V(L >=-V(L ) 

100 U(L)=-U<L> 

c compute slopes from velocities 

TH < 1 ) = ATAN2 < V ( I > «U ( 1 ) ) 

FAC=1 o 

OO 200 I -2 9 NT 

TH ( I )=ATAN2(V( I ) «U( I ) ) 

C CHOOSE NEAREST BRANCH FOR THE ARCTANGENT 

190 IF f ABS<TH( I >-TH< 1-1 ) ) oLT* 1 0 ) GO TO 200 
TH ( | ) = TH < I ) — P 1 *F AC 
IF (ABS(TH( I ) ) oLT 060 ) GO TO 190 
IF (FACeLToOo) CALL EXIT 
F AC*— I o 
GO TO 190 
200 CONTINUE 

IF ( KC YCLE o ME o 1 ) GO TO 240 
IF (KKK^NEal ) GO TO 240 

C STORE ORIGINAL BODY SLOPES USING UNSMOOTHED COORDINATES 

DO 210 ! = t *NL 

J=NP-| 

BODSLOP ( 1 ) = TH ( J ) frRAD 
210 TH(J)=0o0 

BODSLOP (NP ) =BODSLOP ( 1 ) 

DO 220 1 =NP 9 NT 

BODSLOP < I -F 1 > =TH (I >*RAD 
220 TH (I ) = 0 o 0 
KKK = 2 

DO 230 L= 1 9 NT 
V (L) =-V (L > 

230 U(L1=-U(L) 

U(1)*UTEMP1 
V ( 1 ) =VTEMP! 

U (NT ) = UTEMP2 
V (NT > = VTEMP2 
GO TO 110 

240 IF (EPS IL oGT e 1 ■ ) EPS IL= ( TH < 1 > - ( P I +TH < NT > > > /P t 
IF (KCYCLE®NE • 1 ) EPSIL= (TH( 1 )- (P I +TH (NT ) ) I/'Pl 
C COMPUTE ARC LENGTH TO FOURTH ORDER ACCURACY 

SP(1 I “O » 

SUM- 0 9 

00 250 I *2 • NT 

DUM = AMAX 1 l cl E- 20, ABS < • 5* ( TH ( I ) -TH < [ - l J ) M 
UP*XX( 1 ) -XX < I -1 ) 

VP = YY( I ) — Y Y < 1-1 ) 

SUM = SUM+SQRT (UP*UP+VP*VP ) #DUM/S I N (DUM ) 

250 sp ( 1 ) = Sum 
ARC * SP < NT > 

5N=2./ARC 






POOB 


B 1 250 
B 1 260 
B 1 270 
Bi 280 
B 1290 
Bl 300 
B131 0 
B 1 320 
B 1 330 
Bl 340 
Bl 350 
B 1 360 
B 1 370 
Bl 380 
B 1 390 
B1400 
B 1 41 0 
B I 420 
B 1 430 
B 1 440 
8 1 450 
B 1460 
B 1 470 
B 1 400 
8 1490 
B 1 500 
B1510 
B I 520 
B I 530 
B 1 540 
B1550 
B 1 560 
B 1 570 
B 1 580 
B l 590 
B 1 600 
B1610 
B 1 620 
B 1 630 
B 1 640 
B 1 650 
B I 660 
0 1670 
B l 660 
B 1690 
B1700 
B 1 7 1 0 
b 1 7?n 
B1730 
B 1 740 
B 1 750 
B I 760 
BI 770 
B 1 780 
B 1 790 
8 1800 
01810 
Bl 020 
B 1830 
B 1840 
01850 
B I860 
B 1870 
B 1 880 
B 1 890 
B 1 9oO 
B1910 
B1920 
B l 930 
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SCALF= ,25* ARC 
EE=.5*< i .-EPSTL ) 

DO 260 L= 1 * NT 

260 SS (|_ )-AC05( 1 .-SN*SP (L M 
SS (NT ) = P1 

CAUL SPLIF ( NT .SS • TH ,U, V, W, 3 .0* . 3, 0 * ) 

IF (KCYCLE.GT# 1 ) GO TO 360 
WRITE ( N4 , 500 ] TITLE 
WRITE ( N4 . 530 ) IS 

STORE ORIGINAL BODY CURVATURES AND 
PRINT OUT DATA ON THE AIRFOIL 
WRITE (N4.540) 

KKUP -0 
KKL0=0 

DO 280 L=l • NT 
VAL=TH (L )*RAD 

SUM=SN*U<L ) / A M A X 1 {.1E-5,S]N(SS(L))> 

IF ( VAL.LE*~90*0 ) GOTO 270 

kklo=kklo4- 1 

XXLO (KKLO ) = XX (L 1 

SUMLO ( KKLO ) =— SUM ' 

GO TO 280 
270 KKlJP=KKUP + l 

XXUP (KKUP ) =XX (L > 

sumup ( kkup > -—Sum 

280 WRITE (N4.550) XX (L ) . YY < L ) * SP <L ) . VAL • SUM i V(L J»W(L ) 

STORE ARC LENGTH VS X/C NEAR THE NOSE 
ARCLE= ( SP ( KKLO ) + SP ( KKLO + 1 >)/2* 

OO 290 L - 1 .20 
LPLS=KKLO+L 

lmns-kklo+i -L 

XUPLE < L > =XX < LPLS ) 

XUPARC (L ) -SP (LPLS )~A RCLE 
XLOLE ( L )=XX(LMNS) 

290 XLOARC (L )=ARCLE-SP(LMNS) 

REORDER LOWER SURFACE CURVATURES OF ORIGINAL BODY 

00 300 L-l .KKLO 
SUMLOT ( L ) =SUMLO (L > 

300 XXLOT (L > =XXLO (L > 

DO 31 0 L = t . KKLO 

UM=KKLO-L + 1 

SUMLO ( LM ) -SUMLOT < L ) 

310 XXLO (LM ) -XXLOT (L ) 

REDEFINE CURVATURE AT THE TRAILING EDGE 

KK UM1 -KKUP— 1 

KKUM3=KKUP-3 

DO 320 L=KKUM3.KKUM1 , 

LM=L-KKUM1 +3 
XTECUR < LM ) =XXUP <L ) 

320 TECUR(LM)=SUMUP(L> 

CALL 0 I SCOT <1 .00.1 . 00 . XTECUR . TECUR . TECUR . -0 1 0 . 3 . O • SUMUP ( KKUP > ) 

KKLM1 = KKLO- l 

KKLM3=KKLO-3 

DO 330 L=KKLM3,KKLM1 

LM-L-KKLM1+3 

XTECUR (LM ) =XXLO (L ) 

330 TECUR ( LM ) =5UML0 ( L ) 

CALL D I SCOT (1.00,1 • 00 , XTECUR . T ECUR ♦ TECUR ,—010.3.0, SUMLO ( KKLO ) > 
NCU PV= IBNDLAY (5 ) 

; INTERPOLATE FOR CURVATURES AT INPUT STATIONS FOR 

; BOUNDARY LAYER CALCULATION 

00 350 J=1 t NCURV 

XCURV = ABNDLA Y (3 )+FLOAT ( J-l 1 *ABNDLAY ( 2 > 

IF (XCURV#LE«0 .0001 ) GO TO 340 

CALL D1 SCOT < XCURV. XCU«V» XXLO. SUMLO » SUMLO ,-0l 0 ♦ KKLO , O , BODCURV < J ) ) 

jpl=j+ncurv 

CALL D 1 SCOT < XCURV . XCURV .XXUP vSUMuP » SUMUP . -O 1 O , KKUP . 0 , BOOCURV < JPL ) 

1 } 


B 1 94 0 
Bl 950 
B 1 960 
B 1 970 
Bl 900 
B 1 990 
B2000 
B20 1 0 
B2020 
82030 
B2040 
B 2050 
B2060 
B2070 
B2080 
62090 
821 00 
B2 1 1 0 
8212* 
B21 30 
B2140 
B2150 
*2160 
B2 1 70 
82180 
02190 
B2200 
B 22 1 O 
R2220 
B2230 
B2240 
B2250 
B2260 
B2270 
B2280 
B2290 
02300 
B2310 
B 2320 
B2330 
B2340 
62 350 
B2360 
B 2370 
B2380 
B2390 
B2400 
624 10 
R2420 
B2430 
B2440 
B 2450 
82460 
B2470 
B 2480 
B2490 
B2500 
B251 0 
B2520 
B2530 
B2540 
B2550 
B2560 
B2570 
B2580 
B2590 
B2600 
B26 1 0 
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GO TO 350 

340 5UMLE= f SUMLO < l )+SUMUP 
BODCURV ( J ) = 5UMLE 
JPL= J+NCURV 
BODCuRV ( JPL ) =SUMLE 
350 CONTINUE 

WRITE { N4 9 560 ) 

C MAKE INITIAL GUESS OF ARC LENGTH AS A FUNCTION OF CIRCLE ANGLE 

360 DO 370 I = I i MC 

ANGL = FLOAT < I - 1 ) *P ILC 
C IRC (I ) =ANGL 
CX( I )=COS(ANGL ) 

5X ( I ) = S IN I ANGL > 

yy r i ) * t ■ 

IF ( EE <* NE iO> ) YY< I >=(2e-2»*CX( I ) ) **EE 
FAC=SJGN< 1 *+CX(!) .FLOAT (LC- I ) ) 

S Pi I > = ACOS( «5*FAC ) 

370 XX ( I ) = SCALE# < 2 o “'F AC ) 

C 00 AT MOST 100 ITERATIONS TO FIND THE FOURIER COEFFICIENTS 

DO 450 KCY = 1*100 

CALL INTPL < NMP «SPtTT *SS.TH«U*V. W ) 

DO 3Q0 I - 1 9 NMP 

380 TT ( I >*TT < I) - *5* < 1 #+EPS I L HMPI -C I RC < I ) I + .5 *P I 
C COMPUTE THE FIRST NFC FOURIER COEFFICIENTS 

DO 400 I = I g NFC 
SUMsOo 
F AC= 0 o 

DO 390 L= 1 g NMP 
LT *1 +MOD( (L-l )*U-1 ) * NMP) 

SUM=SUM-TT (L ) *CX (LT ) 

390 FAC-FAC+TT<L >*5X(LT ) 

BB ( I )=SUM/FLOAT (LC ) 

400 AA ( I )=FACVFLOAT (LC ) 

BB t 1 > = .S*B0 < 1 > 

BB (NFC > =©5*BB (NFC ) 

DA=1 a —EPS I L- A A (2 ) 

AA (2 )= J e-EPS T L 
ENSURE CLOSURE 

COMPUTE THE CONJUGATE HARMONIC FUNCTION DS 
DO 420 1 = 1 o NMP 

SUM= ( 1 d~EPS1L )#CX ( I ) 

DO 410 K = 3 * NFC 
LT = 1 +MOD C (K- 1 ) * ( 1-1 ) g NMP) 

410 SUM = SUM+AA t K ) #CX ( LT ) +BB ( K ) 9 SX < LT ) 

420 DS< 1 )=YY( I)*EXP<5UM> 

DS 1MC >=DS( 1 > 

TT ( 1 ) = 0 o 
VAL = cS^PlLC 
C INTEGRATE TO GET NEW ARC LENGTH 

DO 430 L=2*MC 

430 TT CL)»T TIL-1 ) 4-VAL* ( D5 <L)+DS(L“1 ) ) 

SCALE=ARC/TT (MC ) 

ERR=6o 

DO 440 I * 1 o NMP 


VAL=SCALE*TT ( I ) 

DUM=ABS(XX( I )-VAl ) 

ERP=AMAX1 (ERR . DUM/ARC ) 

SP < I ) = ACOS ( 1 o-SN*VAL ) 

440 XX ( I ) =VAL 

IF (KCYCLEeEOo 1 ) WRITE (N4.690) 
IF (ERR«LToTOL) GO TO 460 
450 CONTINUE 

r F (KCYCLEeEOo 1 ) WRITE (N4.570) 
460 AA ( 1 ) = ARC 

IF ( KC YCLE « GT a 1 ) GO TO 4B0 
WRITE ( N4 % 58 0 ) EPSIL.NMP 
DO 470 L=1 .NFC 

470 WRITE ( N4 g 590 ) AA(L).B0(L) 

480 BB ( 1 ) =ALOG ( SCALE ) 

RETURN 


B?620 
62630 
B2640 
R 2650 
82660 
B2670 
B26B0 
B2690 
62700 
0271 O 
B2720 
B2730 
B2740 
B2750 
B2760 
B2770 
02760 
B2790 
B2800 
B2810 
B2820 
B2630 
62840 
B2850 
B2860 
B2870 
B28B0 
B2890 
B2900 
0291 0 
B2920 
B2930 
B2940 
B2950 
02960 
82970 
02980 
02990 
03000 
03010 
03020 
33030 
03040 
B3050 
B3060 
B3070 
B30B0 
B 3090 
B31 00 
B 3 1 1 0 
B31 20 
B3139 

031 50 
B3160 
B3170 
B3I80 
83190 
B3200 

ERR g DA g 88(2) B32lO 

B 3220 
R3230 
83240 
B 3250 
B 3260 
B3270 
R 3280 
83290 
B3300 
B 33 1 0 
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490 FORMAT ( 1H1 > 

500 FORMAT <15A4) 

5t0 FORMAT (0F1O.O) _ 

520 FORMAT < 1H052HANALVS I S OF TWO-DIMENSIONAL* TRANSONIC, VISCOUS FLOW, 
113X*30HPAUL BAVITZ, GRUMMAN AEROSPACE/) 

530 FORMAT ( 1 OHOTHERE ARE,I4,26H SMOOTHING ITERATIONS USED/) 

540 FORMAT <35HOAIRFOIL COORDINATES ANO CUR V A TuR ES/ 1 HO , 6X ♦ 1 Hx , i 4 X , 1 H V , 
19X, 1 OH ARC LENGTH,6X ,5H THETA , 7X,5HKAPPA « 1 0X,2HKP , 1 1 X ,3HKPP// ) 

550 FORMAT (F12*6,2FI4.6,F14.3,F14,4,2E14.3) 

560 FORMAT ( 1 HO , 4X , 3HF.RR » 1 4 X , 2HDA , I 4 X , 2 HOB// ) 

570 FORMAT (32H FOURIER SERIFS DID NOT CONVERGE) 

580 FORMAT (34HIMAPPING TO THE INSIDE OF A C I RCL E/ / 3 X 1 1 HDZ/OS l GM A = 

1 5 Oh -< l /S1GMA**2 >* ( l-SI GMA ) ** ( I -EPS IL )*< ExP ( W < S I GMA )) //3X, 

2 42HWISIGMA) = SUM t( A ( N > + ! *0 ( N ) ) *S ) GMA * * ( N- t ) ) //3X * 7HEPS 1 L = * 

3 F5 * 3 , 20X , I 4 , 25H POINTS AROUND THE C I RCLE//7X4HA (N ) 10X4HB(N)//) 

590 FORMAT (3E15,6) 

END 

BLOCK DATA 

COMMON PHT ( 1 62 , 33 ) ,FP ( 1 62, 33 ) 

COMMON /B/ AA { l 00 > ,BB ( tOO) 

COMMON /C/ M , MM , MP , N , NN , LL , LP * I * I M « 1 MM , 1 M3, I l t J J , I K , JK • I Z • I TYP , MX 
1 , NS , NCY , TE ♦ P I ,RAD,TP,TPI ,DT , OR , DELTH ,DELR , RA , RAS , R A2 , RA3 • RA4 , R A5 , E 
2M. OCR IT, Cl , C2,C4 , C5 , C6 * C 7 , BE T , EPS 2 L ♦ TC . CL , CHD , AL P ♦ ALPO , DP H I , XPH I ,C 
3N * SN*EP*C3*RA7,RA6,RA9 ,EL * XM , XS, FSVM ,ST , X , Y , YM , XA , Y A , AO , 0O,KP, YR , E 
4M0 , EE , 1 D I M , NFC , NMP , I S , N2 « N3 , N4 , N55 ♦ M4 ,NPN 
COMMON /D/ SF , S IZF • ANG , XMAX , YMAX , YOR i YORi PGS 1 Z 

DATA SF » S I ZE , ANG ,-XM AX , YMAX,XOR , Y OR « PGS tZ/1.0,.14,0*,ll,,l l * , C, , -3 ■ 

1 DATA^YR»YA,AQ,BQ*TE» XM , XPH I ,EMO,PI • R AD , I TYP ,MXP* I K , JK , NC Y , J J * NRN , I 
1 I , NFC i NMP,M »N ,NS, l D I M/ 4*0 , * - 1 • • 3* l • • 3 • l 4 1 59565359,57*2957 7951 3,5*0 
2,2*1 * 130, 16,300 ,160,32,400, t 62/ 

DATA EP *ST ,XS,KP « 1 7 , 1 S , F S YM/O » 7 , O , 0 0005 * 1*4, 10, 130, 10, 4*0/ 

END 

SUBROUTINE BNDLAY 

COMPUTE BOUNDARY LAYER CHARACTERISTICS AND DEFINE AN EQUIVALENT 
INVISCIO AIRFOIL USING THE ORIGINAL AIRFOIL AND THE DISPLACEMENT 
THICKNESS 

COMMON /C/ 1 DUMMY (20 ), DUMMY ( 15 ), EM 

COMMON /E/ KCYCLF ,FNU,FNL , I { 1 3 ) . A <1 9 ) ♦ XBOOY < 1 62 ) , YBOOv (1 6? > , BODSLO 
1PU62) , BODCURV ( 82 ) , XNEW t 1 62 ) ,YNEW< 1 62 ) , CPSURF ( l 62 > , CPBDL Y (02 ) , IGRI 
2D , GR I D , XUPLE (20 ) ,XUPARC ( 20 ) , XL OLE (20 ) , XL O ARC < 20 ) , T I TLOUT ( 15), CLOUT 
3(3,7), SUPOUT (3,7) , SLOWOUT (3,7), CMOUT , CP'JP ( 05 > , CPLO ( S5 ) , XTEMUP < B5 1 , 
4XTEML0 ( 85 ) , DELBLX (162) , KOUNT , KOUNTUP , LOWGRD , l NVD1 V 
COMMON /F/ XBL (75 ) ,DELBL (75 ) ,THET6L t 75 ) , HBL ( 75 ) ,CFR0L (75 ) »KT YPE , KK 

1 K 

DIMENSION [TEMP < 13), ATEMP(i9), Z(l), U(llO), TAu(llO), UFUT ( 1 1 0 ) , 

1 TFUT(llO), TANACllO), TANB(llO), TANAFU(llO), T ANRFU ( l 1 O ) , V<tlO) 
2, W(110), WFUT(llO), ROU(llO), R0U2 (1 1 0 ) , AL(2,3), P(41), RD ( 4 M * 

3XXX ( 6 ) ♦ Y YY ( 6 ) * 0BB ( 6 ) , XL AST ( 4 ) , DELLAST(4), COMF C 377 ) 

EQUIVALENCE (COMF ( 1 > ,xbl ( in 

c ROUTINE is SET FOR TWO CYCLES IN OROER TO CAlCULATF BOTH UPPER AND 

C LOWER SURFACE B, L, CHARACTERISTICS 

NUMBER-2 
KSURF=1 
XTRAIL- 1 *0 
XL AST (1 )= l • 1 
XL AS T ( 2 ) = I • 1 
NT=FNU>FNL 

nu=fnu 


c 


NL=FNL 
ML 1 =NL+ 1 
[ !5= I <5 ) 

IF ( INVD1 V*EO*0 ) GO TO 40 

NOMINAL B L DELSTAR FOR INIT INV SOL 

DO 20 J=NL 1 ,NT 

IF (XBOOY ( J ) .GT*0*BO ) GO TO 10 
DELBLX ( J ) =XBODY < J >*0 .0031 25 


DIVERGENCE 
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03 320 
03330 
03340 
B 33 B 0 
B3360 
B3370 
B3360 
B3390 
B 34Q 0 
B 34 l 0 
B 3420 
03 430 
B3440 
B 3450 
R 3460 
03470 
B3480 
03490 
B 3500- 
C 1 0 
C 20 
C 30 
C 40 
C 50 
C 60 
C 70 
C 80 
C 90 

c mo 
c 110 

C 1 20 
C 130 
C 1 40 
C 1 50 
C 160- 
D 1 0 
D 20 
D 30 

n 40 

D 50 
O 60 
D 70 
D 80 
D 90 
D 100 
D MO 
D 5 20 
D 1 30 
D 140 
D 1 50 
D 160 
D 170 
D 1 RO 
D 190 
D 200 
D 220 
0 220 
D 230 
D 240 
D 250 
0 260 
D 270 
0 2BO 
D 290 
0 30 0 
D 310 
O 320 
D 330 
D 340 
D 350 
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GO TO 20 





D 

360 

] 0 

DFLBLX ( J ) =Oo 1 21 875*XB0DY < J >*XBODV < J > -0* 1 91 075* *800 Y < J )+O»O70 


D 

370 

20 

CONTINUE 





D 

300 


00 30 J=! *N[_ 





0 

300 

30 

DELBLX 1 J ) =0 o 0 





0 

400 


WRITE fN3) COMF 





D 

410 


WRITE { N3 ) COMF 





0 

420 


GO TO 1340 





D 

430 


STORE INPUT MATRICES FOR USE IN SECOND CYCLE 


D 

440 

40 

DO 50 J= l * l 3 





D 

450 

50 

I TEMP ( J ) = I ( J ) 





D 

460 


DO 60 J= l 9 1 9 





D 

470 

60 

AT£MP< J)=A( J ) 





0 

400 


NORUN^O 





D 

4.90 

70 

KTSTSEP-0 





6 

500 


NCOUNT = 0 





D 

510 


10=1 





n 

5?0 


X = A <3 ) 





D 

53 0 


L IMI T= I (4 > 





D 

540 


FP- 1 





n 

5F0 


KKK-l 





D 

560 


XBL t I )=OoOOO 





D 

570 


DELBL < I J =0o 000 





D 

580 


THFT0L ( t ) =0 o 000 





D 

590 


HBL < 1 ) =OoOOO 





D 

600 


CFRBL f 1 >=OoOOO 





D 

61 0 

80 

CONTINUE 





D 

620 


WARN = 0 o 





D 

630 


15=1(5) 





O 

640 


16=1 (6 ) 





D 

650 


17=1(7) 





D 

660 


10= I (8 ) 





D 

670 


19=1(9) 





D 

680 


I10=M10) 





D 

690 


111=1(11) 





D 

700 


RT 2=1 O 





0 

71 0 


Rl5=FLOAT { 15 > 





D 

720 


RI6=FL0AT( 16 > 





D 

730 


161 = 16+1 





D 

740 


I 62 s I 6+2 





D 

750 


T 64= 1 6-0-4 





D 

760 


RM = Oo 





D 

770 


A Y= A r 1 3 >* ( A ( 12 > 

-1 O ) 




D 

780 


IF <X-A<3)> 230 

■» 9 0 9 

230 



D 

790 


BOUNDARY VALUE 

INPUT 



D 

800 

90 

TEMP=C I o + o 5* < A ( 12 )- 

l 0 )«■* ( A < 12 )/ ( ! o-A ( l 2 ) ) ) 


D 

81 0 


OO ! 1 0 1 g I 5 





D 

820 


IF (KSuRFoFQc.2 ) 

GO 

TO 

100 


D 

830 


JPL= J+ 1 5 





D 

840 


P ( J ) =TEMP4 f 1 o + o 

5* A < 1 2 ) *CP8DL Y ( JPL > o ) 


D 

850 


GO TO 110 





D 

860 

100 

P< J) =TEMP* ( 1 o + o 

5*A( 12 )*CP0DLY< J)*EM**2© ) 


D 

870 

1 1 0 

CONTINUE 





D 

800 


IF ( ! 7oEQdO ) GO 

TO 

1 40 



0 

890 


DO 130 J=1 ? 1 5 





D 

900 


IF < KSURF d EQ o 2 ) 

GO 

TO 

120 


D 

9 1 0 


JPL= J+ I 5 





D 

920 


RD(J )=BODCURV( JPL > 




D 

930 


GO TO t 30 





D 

940 

120 

RO < J )=BODCUR V < J ) 




D 

950 

1 30 

CONT I NUE 





D 

960 


GO TO 150 





D 

970 

1 40 

RD< 1 > = 0 © 





0 

900 

] 80 

Z( 1 J =0 0 





0 

990 


PSTAT = 0RDIN(P9 A C2 ) , 

X) 



D 1 OOO 
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VDLPDX = SLOPE (Pi A (2 ) i I (5) iX J/ORDIN (Pi A (2 ) iX ) 

RK2=?./(AU2)-1 « >*( 1 ♦-0RO1N (P* A <2 ) ♦ X ) *# < 1 • - 1 • / A ( 1 2 > }) 

RK=SQRT <RK2 ) 

RK3=AY*RK/< 1 * - • 5* I A ( 1 2 ) — l ♦ ) *RK2 ) 

RK5=RK*RK3/2 • 

RK4 = ( 1 *+RK:5 )/< 1 .+RK5/A (HU 
TAUO=A (5 )*RK2* < 1 *+RK5 ) 

SYNTHETIC STARTING PROF t LF 
G=SGRT ( A (5 >* ( 1 * + RK5 ) )/A <9 ) 

T = 0. 1 

TT 1 = 1 •- 15**RK5/16 ♦ 

160 RE=A <4 )/TT 1/(1 «+RK5 >** ( 1 . + A< 14 ) ) 

B* ! .-G* <2* + ALOG< A <9 ) *G*RE/T ) > 

T I G+ • 5*8-2 i*G**2-0 *375*8**2-1 .59*0*G)/ ( 1 • + ( 49 • -297 » *G ) /RE ) 

HI= <G+.5*B >/T I +49* /RE 

TT l = i • -RK5* • ) / ( 3 **H I - 1 • 1 / < 2# *R I ” 1 ♦ > 

IF ( AB5 U #-T I/T ) *LE* 0«005) GO TO 170 
T - T I 

GO TO 160 
170 DO 180 J= l i I 6 
Y^fLOAT < J >/R 16 

U( J) =G*AL0G < Y ) + ! • -*5*B* ( 1 . + C0S <3*141 59* Y ) ) 

TAU < J 1 = (G/Y-f 1 *57O0*F3*SI N (3*141 59* Y ) 1 **2* < A (9 )*Y )**? 

IF < V.LE. .2 > T AU ( J ) -TAU ( J ) * < 1 .-3 i7*Y**l .6 ) 

IF ( Y*GT. .2 > TAU< J >=TAU< Jl*l . 58*EXP ( -3 • 9* Y ) 

W ( J ) sU ( J ) *RK / (RK4/AY-. 5*U< J >**2*RK? ) 

TAU( J)=TAU< J 1/ ( 1 i+RK5 ) 

ROU( J)-U< J)*RK* (1 ♦ + • 5*U ( J > *RK*W ( J ) ) 

1BC ROU2 < J ) -ROU( J1 *RK*U( J ) 

All ? i A ( 4 > l NO A (6 ) ARE REASSIGNED BELOW 

A(4)=M4)/A(1 )/RK* ( 1 .+RK5/A (13))**(l»/(A(12)*l.l-A(UM 
R I I 6- 1 • /RI6 

D1 = 1 < 5*/6* *ROU( 1 ) /R1 6+ St MPSN (ROUi 1 • I 6 *R 1 16 ) ) /ROU ( 16 ) 

TD=1 •-Ol-(5#/7**ROU2<2 ) /P I 6+5 t MPSN ( ROU2 ♦ 1 i I6*RI 16) )/ROU2( 16) 

IF ( RK »GT • • 06 ) GO TO 190 
TD = T ! 

190 CONTINUE 

A ( 1 ) = A ( 1 1/TD/RI6 

A(6) -A< 1 )*RI6* ( 1 * - • 005/G > 

00 200 J= 1 i3 

200 TAUC J) = i25*FL0AT< J}*TAU( J) + < 1 •-•2S*FL0AT (J) )*< A (5) +.5*VDLPDX* <1 
15*( A (12)-! ■ )*RK2 >/RK2/A( 12 )*A < 1 ) +FLOAT ( J } > 

TT]TI-TT1*T1 
DO 2 1 O J=I61 * 162 
U I J ) =RK 

TAU ( J ) ~RK2*1 .OE~i 0 
210 W(J)=RK3 

DO 220 1 i ] 6 

UC J)=U<J)*RK 

W < J) =U ( J ) /(RK4/AY-U ( J ) **2/2 • ) 

220 TAU <J)-TAU(J> *RK2* ( I . +RK5 ) / ( 1 . + * 5*U ( J ) * v ( J ) ) 

ALPHA - (TAUt 1 )* (1 • + • 5*U t 1 )*W< 1 > )-TAUO)/A ( t ) 

BETA = 0 # 

GO TO 250 

MOVES RECENTLY CALCULATED PROFILES INTO OLO PROFILE STORE 
230 DO 240 J= 1 « 1 62 
U < J ) =UFUT ( J ) 

T AU ( J ) = TFUT f J ) 

TANA < U ) =T ANAFU < J ) 

T A N0 ( U > = T A NBF U ( J ) 

ROU( J ) = UFUT ( J ) * < 1 • + • 5*UFUT ( J ) * WFUT < J ) ) 

W ( J)=WFUT(U ) 

R0U2 (3 )=ROU( J)*UFUT ( J ) 

240 CONTINUE 

250 IENT=INT(.25*A(6)/A(1 ) > 

TAU MAX FOR G 

IF < IENT*LT. 1 ) lENT^l 

DO 2^0 J= I ENT i 16 

IF {RM-TAu(J)> 260 « 270 i 270 


01 01 0 
D l 020 
D1 030 
D1 040 
D1 050 
HI 060 
D 1 070 
Dl 0 BO 
01090 
01100 
Dll 1 0 
Dl 120 
Dl 1 30 
Dl 140 
Dl l 50 
01160 
Dll 70 
DU BO 
DU 90 
D 1 200 
D t 2 I 0 
D 1 220 
D 1 230 
D 1 240 
D I 250 
D 1 260 
Dl 270 
Dl 280 
D 1 290 
D I 300 
Dl 31 0 
D 1 320 
D 1 330 
D 1 340 
D 1 350 
D l 360 
Dl 370 
01300 
D 1 390 
O I 400 
D 1 4 1 0 
D1420 
D 1 430 
Dl 440 
D 1 450 
D 1460 
Dl 470 
D 1 480 
Dl 490 
D 1 500 
D 1 5 1 0 

0 1 526 
D 1 530 
D I 54 0 
Dl 550 
D 1 560 
01570 
D 1 500 
D 1 590 
D 1 600 
Dl 610 
D 1 620 
D 1 630 
D 1 640 
Dl 650 
0 1660 
01670 
D 1 680 
Dl 690 



APPENDIX 


260 -RM = T AU ( J ) 

L ~ J 

270 CONTINUE 

RM=RM/RK*SQRT ( < \ o+(,5*U(L)*W(Ll ) / ( l * + 9X5 ) ) 

IF (x-A(3)) 3B0 * 280 * 38 0 
280 CONTINUE 

ip ( t g_i y 290 ,300*31 0 
290 DIV=0d 

GO TO 340 

300 DIV?U/(X-ORDIN(Z ? A{2)«X) > 

GO TO 340 

310 IF < I 9-2 > 340 * 320 * 330 

32 0 01 V = SLOPE ( Z * A < 2 ) * I ( ®5 > .X)/0RDIN(2 <A(2)»X) 

GO TO 340 

330 O I V-ORD 1 N < Z , A ( 2 1 »X1 
340 CONTINUE 

C V ETC FOR FIRST PROFILE 

V(l)=0o 

DO 350 J- I & 1 61 

V=I fl +«25* <U( J+t )+W( J ) >*l W< J+l >+W ( J ) > 

350 V(J+ 1 ) = (U( J+l >*V<J)-Y*CTAU<J+I )-TAU f J > >- *5* f W < J+l ) +W < J ) >*<TAU<J + 1 > 

1 +TAU( J ) ) Y* <U(J+l )-U< J 1) *.5-o25^(U(J)+U(J+ 1 > >**2*A ( 1 )* ( VD LPDX* (i«- 
2Y*AY/A (12)/(Y-10)+D1V))/UU) 

DO 360 J= 1 o I 62 

R0U< J)*U( Jl* (t o+o5*U(J ) *W ( J ) > 

360 ROU2 < J > =ROU ( J >*U ( J ) 

DO 370 J- I « I 62 

370 CALL TANCAL (G« A ( V»J« RM *Di U»T AU , TANA ♦ T A NO « W ) 

3a0 CONTINUE 
TAU0=TAU0 

K ~ [ NT (40o/(A {4 >*PSTAT#A ( 1 >*SQRT ( 7 AUD ) > ) + 1 
IF ( K oLE o t 6 > GO TO 390 
K- I 6 
390 PK=K 

DELTA 1 =R I 6'* A ( 1 )-(«~46o/A(4)/PSTAT + PK*A<l >*( ROU ( K ) -SORT < T AUO ) / A < 9 ) ) + 
I S1MPSN<R0U*K q 16* A (I ) ) ) /ROU < 161) 

D£LTA2 = R!6*A < 1 > —DEL T A t - (-68 7 ** SORT (TAu0l/A(4 )/PSTAT+PK#A ( 1 )*(ROU2 < 
1 K ) —2 d *ROU ( K ) #SQRT ( TAUO ) XA f 9 )+2o *TAuO/A (9) ) + 5 I MP SN ( ROU 2 * K * I 6 * A ( i 
2 ) ) 1/R0U2 (161 ) 

HI =OELT A 1 /DELTA2 
CFR S 2<»^T AU0/RK2/ ( 1 e+RK5 ) 

c MOMENTUM integral check 

RMA2=RK2/ ( 1 o- d 5* ( A (1 2 ) - 1 o ) *RK2 ) 

IF (X-AO)) 400*400*410 

40 0 ORD1 = o 5*CFR4DELTA2* < VDLPDX* < HI +2 * -RMA2 ) / ( A < 1 2 I *RMA2 >-D t V ) 

THET A=0ELT A2 
GO TO 420 

4 1 O ORD2=o5*CFR + DELT A2* < VDLPDX* ( H 1 +2 o -RM A2 ) / ( A ( l 2 ) *RMA2 1-Dl V 1 
TH£TA = THETA + #5# (ORD1 +0RD2>*XSTEP 
OPDI =ORD2 
420 CONTINUE 
RMAX-0 c 

IF (TANB(l)) 440*440^30 
430 IO-l 

GO TO 590 

C COURANT FRIEDRICHS LEW Y XSTEP CRITERION 

440 DO 480 J=1*I6 

IF < RM AX-TANA ( J ) ) 450*450*460 

450 RMAX=TANA(J> 

GO TO 480 

46C IF {RMAX+TANB ( J > ) 470*470*480 

470 RMAX=~TANB i J ) 

480 CONTINUE 

XSTEP^A (11 >*A ( l >/RMAX 

IF ( X + XSTEP- (R j 5-1 . ) *A (2 ) > 490*490* t 1 40 

490 H = -X STEP-S T AN0 < l > / A ( 1 ) 

TORO = TAU(1 ) 

T OR = T A U ( 2 J * H+ T A U ( 1 )*< I □ -H) 

UL=U (2 1 *H+U< l )* < 1 q-H J 


D l 700 
D171 O 
D 1 7P0 
D 1 730 
0 1 740 
D 1 750 
D 1 760 
D 1 770 
O 1 760 
01790 
D 1 800 
01810 
01820 
D1 830 
D 1 840 
D 1 850 
0 1 660 
0 I 870 
0 1860 
0 1 890 
D 1 900 
0 1910 
0 1 920 
0 1 930 
D I 940 
D I 950 
0 1960 
01970 
DI 980 
D 1 990 
D2000 
0201 0 
02020 
D2O30 
D2040 
D2050 
D2O60 
02070 
D2O80 
02090 
02100 
021 10 
021 20 
021 30 
D21 40 
02150 
02160 
D21 70 
02 180 
021 90 
02200 
0221 0 
02220 
D2230 
D 224 0 
02250 
02260 
02270 
02260 
02290 
02300 
0231 0 
D2320 
D2330 
D2340 
D2350 
02360 
D2370 
02380 
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T I NT = T OR 
UlNT=UL 

WW=W (2 >*H + W <1 ) * ( I • — H ) 

boundary condition for solid SURFACE 

XXSTEP=X+X5TEP 

AZ=ORDIN(P*A {2 ) »XXSTEP ) 

B- AZ** ( I ./A ( 1 2 ] - 1 • ) 

C=B/ (A ( I 3>* (B-l 0 + 1.) 

D= ALOG < A (1 >*A (4 )*AZ*C** ( 1 « +A (14) ) ) +A ( l O > 

E=2./A(13)/(A(|2)-1» )/C 
UFUT < 1 l=U(l ) +BET A*X5TEP 
500 F- WW*T OR /A ( 8 ) 

G=(AU5) + .5)*F-SQRT< < <A< 1 5 > + -5 >*F ) #*2+2 . *TOR/A ( 8 ) ) 

XPDX2 = X+ • 5* XSTEP 

DLPDX = SLOPE (P*A (2 ) * I ( 5 ) * XPDX2 ) /ORD 1 N ( P ♦ A < 2 ) . XPDX2 ) 

T = AY/A ( 12**DLP0* 

510 ROOT=SQPT(TAUO> 

F4 = T0«* (UFUT < 1 )+.5*G#T INT/TOR-Ul NT-XSTEP* (-DLPDX*A < 1 3 > * < 1 . -1 • /A ( 1 2 
1 ) ) / WW + A (0 )*SORT (TOR ) +G/(UL*A <9 >* < 1 ,+.5*H ) #A( 1 ) ) ) )/ (-.5*G ) 

AAT = ALPHA*A < 1 )/TAuO 

IF < AAT.LT.-l *0 ) GO TO 1100 

F 1 =UFUT < 1 ) -ROOT/ A < 9 ) * < ALOG ( ROOT ) +D + FN < A AT ) ) 

F5=l • / < 1 .-UFUT <1 > **2 */£ > 

F2=TAU0+ALPHA*A ( 1 >+F4*F5 

F 3-DLPDX/C/A ( 1 2 ) + « 3* (UFUT < 1 ) **2-U <1 J **2 ) * ( 2 • *F5+ 1 • ) /3#/X STEP- ALPHA 
F6=l •/( 1 • +SQRT C 1 • +ALRH A* A ( I > /TAUO ) ) 

DF 1 DTW= - *5* UFUT C l J/TAUO- ( *5- ALPHA* A ( 1 )/T AuO*F6 ) /ROOT/ A (9 ) 
DF1DA=-A(l )/A <9 )/R00T*F6 
F7=2**UFUT< 1 )/ (E-UFUT ( 1 1**2 ) 

DF2DU=F5* (TOR/ (~.5*G >+F4*F7 > 

DF3DU= *2*F5*F7# (UFUT ( 1 )**2-U ( 1 ) **2 ) /XSTEP+ • 2 + UFUT < 1 J/XSTEP* (2 **F5 + 
1 1 • > 

DU= ( DF l OTW* ( F2 + A ( l )*F3) -F 1 -OF l DA*F3 )/ ( 1 • -DFI DTW# < DF20U+A ( 1 ) +DF3DU) 
l +DF1 DA#DF3DU 1 
0A=F3+0F3DU*DU ^ 

DTW=“F2-DF2DU*QU“A ( 1 )*DA 
UFUT < 1 > =UFUT (1 > +DU 
TAU0=TAUO+DTW 
IF (TAUO) 520*520*530 
520 I O- l 

GO TO 590 

530 ALPHA=ALPHA+OA 
A 1 62 = 2 • * A ( 16) 

IF ( A0S < DU/UFUT (1 ) >-A ( 16 ) > 540*540*510 

540 IF ( A0S < DTW/TAUO ) -A ( 1 6 ) ) 550*550*510 

550 IF ( ABS (DA/ALPHA ) -A 1 62 > 560*560*510 

560 WFUT ( 1 ) =F7 

TFUT ( 1 ) = < T AyO + ALPHA* A (1 ) )/(l *+*5*UFUT ( 1 ) * WFUT ( 1 ) ) 

IF < ABS < 1 #-TFUT ( 1 )/TORO ) -2 * *A < 1 6 ) ) 560*570*570 

570 H = -XSTEP/A (l ) * ( < ( A ( 1 5 > — • 5 ) *WFUT ( 1 > * TFUT ( 1 ) -SORT ( < ( A { 1 5 > + • 5 1 +WFUT ( 1 
1 )*TFUT ( 1 ) >**2+2.* A <0)*TFUT< 1 ) ) >/UFUT ( 1 ) ) 

UINT=U<2)*H + U(1 >*U *-Hl 
T INT^TAU (2 > +H+TAU ( 1 >*(1.-H) 

UL = ♦ 5* ( U I NT+UFUT ( 1 ) ) 

T0R=#5* ( T I NT + TFUT ( 1 ) ) 

WW=2.*UL/ ( E-UL**2 ) 

T 0R0 = TFUT ( 1 ) 

GO TO 500 
580 1 Q=0 

BETA = (UFUT < 1 )~U ( 1 > >/XST£P 
NP = 0 

590 IF (NCOUNT-1 ) 600*660*600 

600 IF (NCOUNT- < NCOUNT/ I (2 ) ) * 1< 2 ) ) 610*660*610 

610 IF ( l O — 1 ) 620*660*620 

620 IF ( (X-EP*A < 2 ) >— A (3 ) ) 630*630.640 

630 IF (CFR-A(7>) 650*680*680 

640 EP =EP+l • 

650 NP - 1 

660 IF (X*UT*0*02) GO TO 670 

KKK=K<K+1 


D2390 
D2400 
02410 
D2420 
02430 
D2440 
D2450 
D2460 
D2470 
02480 
D2490 
02500 
0251 O 
02520 
D2530 
02546 
02550 
02560 
D2570 
02580 
02590 
02600 
0261 0 
D2620 
D2630 
D2640 
02650 
02660 
02670 
02680 
02690 
02700 
D2710 
027 20 
D2730 
02740 
02750 
D2760 
D 2770 
02780 
02790 
02800 
02810 
D2B20 
02830 
02840 
D2850 
02860 
02870 
02880 
02890 
D 2900 
D29 1 O 
02920 
02930 
02940 
D2950 
02960 
D2970 
02980 
D2990 
D3000 
0301 0 
D3020 
03030 
D 3040 
D3050 
03060 
D3070 
D3080 
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C STORE Be Lc CHARACTERISTICS FOR OUTPUT 

XBL (KKK >=X 
DELBL tKKK ) = DELTA! 

THETBL (KKK ) =DELTA2 
HQL (KKK ) =Ht 
CFRBL < KKK ) = CFR 
670 CONTINUE 
680 NP = 0 

IF (IQ- I) 690 $ 1 1 30 o 690 
690 IF (NCOUNT- I (3 ) ) 700 « 1 1 4 0 o 1 140 

700 V < l )--o5*UFUT (1 )*A ( 1 >* ( TAUO/ ( A < 5 ) *RK2* < 1 o+RK5 > )-I * )/XST£P 
XFUT =X+XSTEP 
PSTAT = ORDIN ( Pq A f 2 ) *XFUT ) 

VDLPOX = SLOPE (P« A<2 > « I (5),XFUT )/ORD JN(Pg A (2) * XFUT > 

RK2 -2 o/(A< 12 )-l ° ) * ( 1 D -ORD [ N ( P « A { £ ) « XFUT )##(1 o-l o/A(12) ) ) 
RK=SQRT<RK2) 

RK3 = AY<*RK/(1 o- 0 5tt(A(!2)-U) #RK2 ) 

RK5=RK*RK3/2 o 

RKA= ( 1 c +RK5 >/ ( 1 0 +RK5/A (13)) 

IF ( I 7 o EQ o 0 ) GO' TO 710 
RO=OPD IN(R0«A(2)« XFUT ) 

GO TO 720 
710 RO = 0 o 

C NEW PROFILE CALCULATION 

720 K = 2 

730 DO 820 1 1 s 1 * 2 

R= ( -X5TEP/ A ( 1 ) )*TANB ( K ) 

GO TO ( 750 * 740 ) « M 
740 R= (-XSTEP/A( 1 ) )*TANA (K) 

750 IF (KoLEo INT ( oQ^FLOAt (1(6)))) GO TO 780 
IF <R) 770 9 770 o 760 
760 U INT=R»U(K+ 1 )+ ( 1 o-R)*U(K ) 

TINT =R* T AU ( K+ 1 } + ( 1 o -R ) * TAU ( K ) 

WINT=R»W(K+l )+ ( 1 o-R >*W(K> 

GO TO 790 

770 UlNT = -R*U(K-n + ( 1 o+R )*U(K) 

TINT = -R^TAU( K-l ) + Cl * + R) *TAU(K > 

WJNT=-R*UV<K-1 >+ ( 1 o + R >*Vsf< K ) 

GO TO 790 

780 CALL PINT (R ^ U o W g TAU g K „ U I NT 9 T I NT • W INT ) 

790 ZK=FLOAT(K> 

UL=o5*CUlNT+U(K) ) 

T OR= o 5# ( T INT + TAU <K ) ) 

IF ( T OR 0 LT 0 O 0 O) GO TO 1120 
WW=o 5* t W INT + W (K ) ) 

RR= (ZK+o5*R)*A (1 ) / A ( 6 ) 

D=RM#GORD (RR ) 

E = WW&T OR/A ( B 1 
THET=D*WW+1 « 

S IGMA=D+ ( A (1 5 ) + o5 >*E+SQRT ( ( D + < A ( l 5 > + o 5 ) *E ) **2+THE T*2 o *TOR/ A ( 8 ))*(- 
1L)HI1 
X YZ=4 o 5 


IF ( RO o GT o 0 o ) XYZ = 7o 
RO=RO 

DD=RLOPD(RR ) 

ODF=DD 

R ICH = 2o *RO*DD*UL /SORT (TOR >*A C6>*( 1 o + e5*UL*WW) 
DD=OD/ ( I o+XYZ*RI CH ) 

IF <DDoLTo2o*DDF) GO TO 800 
800 IF IDOoGTcOo) GO TO 810 
0D=2o*DDF 
010 CONTINUE 

AL ( ! 1 « 1 >=T0R*THET 


AL (I 1 * £ ) = — ® 5*5 1 GWA 

R20 AL(IIO) =-T I NT-0-AL ( I 1 *2 >-TORtt (U I NT* THE T+X STEP# ( 
1 (6 1* (SORT (TOR >/DD + RN#SLOG< RR > )*S JGMA ) > 

CALL SOLVE <UFUT ( k ) q TFUT (K ) , DET g AL ) 

IF (DEToEQoOo) GO TO 870 

IF ( ( TFUT ( K )/RK2 ) oLT o l o 0E- I 0 > TFUT ( K ) =RK2# 1 <•> E— 


-T*THET/WW+ A (8 ) /UL/A 


10 
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D 364 0 

03650 

03660 

D3670 

D3680 

D3690 

D3700 

03710 

D3720 

03730 

D3740 

03750 

D3760 

D3770 



APPENDIX 


IF <UFUT < K ) .GT.RK > UFUT<K)=RK 
IF (K.LE«(16-5)) GO TO 830 

I F (TFUT (K ) *GT .TFUT (K- 1 ) ) TFUT < < ) =&K2* 1 *OE- 1 0 
IF (UFUT (K > tlT.UFUT (K-l ) > UFUT <K ) =RK 
830 CONTINUE 

WFUT ( K ) =UFUT <K ) / < RK4/AY- ♦ 5* UFUT ( K ) *+2 ) 

IF < I .-UFUT <K J/RK-l .OE-3 ) 840*850,850 

B40 IF < TFUT (K > /RK++2-1 • OE-6 ) 880*650,850 

850 IF < K“ I ( 6 > ) 860 • 860 * 880 
860 K=K+1 

GO TO 730 
870 I (6>-K— I 
GO TO 890 
880 1 < 61=K 

890 16=1(6) 

D I V= 0 ♦ 

IF (119)) 930*930*900 
900 DI V= 1 ./<X+XSTEP-ORDlN <Z* A< 2 > *XFUT )> 

IF I 1 < 9 ) - 1 > 930*930*910 

910 01 V = SLOPE (Z* A (2 ) * I <5 ) *XFUT >/ORD I N ( Z * A ( 2 ) *XFUT ) 

IF (I(9)*2) 930*930*920 

920 Dl V=ORD!N (Z* A (2 ) * XFUT ) 

930 161=1 ( 6 )+ 1 

162= ! <6> + 2 
164= K6I+4 
DO 940 J= 161 *162 
UFUT ( J >=RK 
WFUT < J )=RK3 

940 TFUT ( J ) =RK2* 1 ♦OE-10 
C NEW V 

DO 950 J=lv* I 61 

Y =1 » + ♦ 25* (UFUT < J+l )+UFUT ( J ) )* <WFUT( J+l )+WFUT ( J ) ) 

950 V < J+ 1 ) = (UFUT (J+l )*V (J >-Y*( TFUT < J+l ) -TFUT ( J > > “. 5* ( WFUT < J+t )+WFUT(J> 

I )*<TFUT(J+I ) +TFUT ( J ) ) * Y* l UFUT ( J+ 1 )-UFUT ( J) >+.5- -25* ( UFUT ( J ) +UFUT (J 
2 + 1 ) )**2*A< 1 ) * < VDLPOX-* ( 1 *-Y*AY/A< 1 2 ) / ( Y- 1 • > ) +D I V ) ) /UFUT < J ) 

DO 960 J= 1 * I 62 

CALL TANCAL ( G * A * V * J *RM * D* UFUT * TFUT • TANAFU* TftNBFU * WFUT ) 

960 CONTINUE 

c 1 RECALCULAT ION NEAR SURFACE USING IMPROVED INTERPOLATION 
DO 1 000 J=2* 18 
ZJ=FLOAT < J ) 

DO 990 11=1 * 2 

R= <-XSTEP/A< 1 ) )*0.5*{TANBFU(J>+TANB< J+t ) 1 
GO TO (980*970)* II 

970 Rs (— xSTEP/A ( 1 ) ) +0 »5* (T ANA FU ( J ) +T AnA ( J— 1 ) ) 

980 CALL PINT <R *U*W*TAU*J*UTNT , TINT ,W INT > 

UL = 0*5* (UINT + UFUT < J ) ) 

TOR = 0 • 5* < T I NT + TFUT < J ) ) 

WW=*5* ( WlNT+WFUT ( J ) ) 

RR= (ZJ+*5+R)+A ( l )/A(6> 

D=GORD(RR)*RM 

E=WW*T0R/A<8> 

thet= 1 .+o*ww 

S 1 GM A = D+ <A(15> + #5 ) + E + SQRT ( ( D+ < A C 1 5 ) + * 5 ) +E > **2 + THE T*2 « *TOR/ A (8))*<- 
U * )**l 1 

XYZ=4*5 

IF (RO.GT.O.) XYZ=7. 

DD=RLORD (RR ) 

DD=DD/( I ♦+2.*XYZ*RO*OD*UL/SORT(TOR>*A C6)*U #+*5*UL*WW) ) 

AL ( I 1 ♦ 1 ) =TOR+THET 
ALU 1 *2 )=-«5*SlGMA 

990 AL ( I 1 .3 >=-TlNT*AL ( I I ,2 )-TOR* (U I NT*THET + XSTEP» < -T*THET/WW+ A ( e ) /UL/ A 
1 (6 >* (SORT < TOR ) /D0+RM*5L0G< RR ) ) *S 1 GM A ) > 
call solve (ufut ( j > « tfut < j ) *det * al ) 

WFUT ( j > =UFUT C J )/ <RK4/AY-«.5*UFUT ( J ) **2 ) 

CALL TANCAL ( G * A . V ♦ J • RM * Q* UFUT * TFUT * TANAFU* T ANBFU * WFUT ) 
jp (TANAFUt J) -GT* 10* *>70. ) GO TO JllC 
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1000 CONTINUE 

DO 1010 J=1 . 161 ^ (WFUT(J+1 )+WPjT( JM 

1 CMC J+l *) = <UFUT< J+> )*V ( J)-Y* (TFUT ( J + l >-TFUT < J) )-.5* CWFUTI J+l )+WFUT ( J) 

' ! )*<TFUTU+t )+TFUT(J))*Y*(UFUT< J+l ) -UFUT ( J ) ) * .5- . 25* «JFUT ( J > + UFUT ( J 

2 + ] ) >**2*A ( 1 )* ( VDI_PDX*< 1 .-V*ftY/A H2)/IV-1.))+DIV) > /UFUT ( J> 


A < 5 ) =TAU0/RK2/ < 1 « +RK5 ) 

DELTA 995 FOR SCALING L AND 6 

I 625= M6J/4 

DO 1 030 J=I625< J 6 

IP ( UFUT ( J ) /RK — • 995 > l 020 ♦ t 0 30 * 1 0 30 


1020 L-J 

RL = FLOAT (L ) 

1030 CONTINUE 

A (6)=A { 1 >* ( ( « 995*RK— UFUT ( L 1 )/<UFUT<L+l 1 -UFuT C L > 1 +RL > 

REDUCTION IN NUMBER OF PROFILE POINTS IF REQUIRED 
IF (I (6) -LIMIT! 1 090 , 1 090 * l 04C 
1040 IF <CFR-A(17M 1 090 » 1 090 « I 050 
1050 1 (6 )- INT (FLOAT ( I (6 ) >*£« /3o ) 

161 = M6J + 1 
DO 10B0 1 < 161 

I S33*J/2 
R l S = FLOAT ( IS ) 

IF (J-2*<J/2>1 1 060 i I 070 * 1 060 

1060 UFUT (Jl = (UFUT < IS+I )*AL0G<1 * + * 5/R I S ) -UFUT ( IS>*ALOG< 3 « - • 5/ ( R 1 S+ I • )) > 
1 / ALOG ( 1 .+1 */R I S 1 
TFUT < J ) = .5* ( TFUT ( IS)+TFUT( IS+1 1) 

WFUT< J> = .6*<WFUT< 1S1+WFUT< IS+M 1 
T ANAFU ( J)=o5* (T ANAFU ( I S ) + T A N A FU < IS+1 ) ) 

7 ANBFU ( J)? #5* (TANBFUt IS)+TAN8FU< IS+1 1 ) 

V( J)s. 5*1V(1SJ+V(IS+1 n 
GO TO 1080 

1070 UFUT l J)=UFUT< IS) 

WFUT l J >=WFUT t IS > 

TFUT < J)=TFUT (IS) 

T ANAFU l J )=T ANAFU ( IS) 

T ANBFU l J ) =T ANBFU I IS) 

V ( J > =V ( 13) 

1060 CONTINUE 

A M ) = A U )*1 #5 
1090 X = X+XST EP 

NCOUNT =NCOUNT+ 1 
GO TO 80 
1 100 KTVPE=3 

GO TO 11 50 
1110 KTYPE=4 

GO TO 1150 
1 120 KTYPE=5 

GO TO 11 50 
1 I 30 KTVPE = 2 

KTSTSEP=1 
GO TO 11 50 
1 1 40 KTYPF= l 
J150 NORUN-NOPUN+ 1 

IF <X0L(KKK).GT.O.15) GO TO 1190 

C DEFINE DISPLACEMENT THICKNESS TO BE ZERO EVERYWHERE ON GIVEN 

C SURFACE IF SEPARATION OCCURS NEAR THE LEADING EDGE 

IF ( KSURF • EQ « 2 } GO TO 1170 
DO 3 160 J = NL I * NT 
I ] 60 DEL6LX fJ)=0.0 

SUPOUT ( IGRI D+3 »KC YCLE ) =XBL (KKK ) 

GO TO 1310 
?170 DO 1100 J=1 i NL 
1 160 DELBL X < J ) =0 • 0 

SLOWOUT l IGRI D+l *KCYCLE > = XBL (KKK ) 

GO TO 1310 

1190 IF { KSURF • FO *2 > GO TO 1230 

C INTERPOLATE FOR DELSTAR AT UPPER SURFACE STATIONS WHERE BODY 
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COORDINATES ARE KNOWN 
DO 1 220 J = NL 1 * NT 

1 F {X0ODY ( J ) *GT .XBL <KKK ) ) GO TO 1200 

CALL D I SCOT < XBODY < J 1 i XBODY ( J ) « XBL • DELBL . DELBL ♦’“OfO *KKK . 0 • DEL0LX 

: EXTRAPOLATION AFT OF LAST CALCULATION POINT IS ONLY TEMPORARY 

; AND IS CHANGED WHEN DEFINING THE EQUIVALENT INVISCID AIREO L 

1200 CALL 0 I SCOT < XBODY { J )• XBODY < J >. XBL * DELBL . DELBL- * “O 1 0 . KKK . 0 . OELBLX ) 
1210 IF ( DEL6LXA *GT . 0 « 025 1 DELBLX A-0 • 0 25 
IF (DELBLXA.LT. 0*000 > DELBLXA=0.000 
1220 DEL5LX < J > ^DELBLXA 

IF (K TSTSEP • EQ • 1 ) SUPOUT < ! GR 1 D+ l . KC YCLE ) =XBL ( KKK ) 

XL AST ( 1 ) -XBL (KKK ) 005 
XLAST (3 >=XLAST < 1)-0.01 

CALL D I SCOT (XL AST (1 } . XL AST ( 1 ) . XBL. DELBL • DELBL *-QA0 .KKK .0 , DELLAST 


D 1 SCOT (XL AST (3 ) * XL AST ( 3 ) .XBL. DELBL . DELBL » -04 0 .KKK . 0 . DELLA ST < 


1230 


11)1 
CALL 
13 ) ) 

GO TO 1310 
INTERPOLATE 
COORDINATES 
IF (KTST5EP.EQ.0) 
EXTRAPOLATION AFT 


FOR 

ARE 


AT LOWER SURFACE STATIONS WHERE BODY 


DELSTAR 
KNOWN 

GO TO 1 2 AO 

OF LAST CALCULATION POINT 


IS LINEAR FOR NO 


I 250 
1 260 


* 0 . DEL8LX A ) 


SEPARATION ano is a function of THE CP distribution otherwise 
: (LOWGRO IS DEFINED IN GETCP ) 

SLOWOUT ( IGRI D+l « KC YCLE >=X8L (KKK ) 

IF (LOWGRD.LT .0 ) GO TO 12B0 
1240 DO 1270 J=1.NL 

IF (XB0DY(J1.GT.XBL<KKK)> GO TO 1250 _ Q1 . . 

CALL D I SCOT (XBODY! J>. XBODY <J>. XBL. DELBL, DFLBL. -040. KKK, O.DELBLXA) 

GO TO 1 260 _ ^ t ^ 

CALL DISCOT ( XBODY ( J ). XBODY ( J >• XBL * DELBL . DELBL 0 1 O ♦ KKK 

IF (DELBLXA.GT. 0.025 ) OELBLXA =0. 025 
IF (DELBLXA.LT. 0.000 ) DEL0LXA=O. 000 
1270 DEL0LX ( J)=OELBLXA 

IF (KTSTSEP.NE.l ) GO TO 1310 
XL AST < 2 ) “XBL (KKK > -.00 5 

CALLAO I SCOT ( XL AST < 2 ) • XL AST <2 ) . XBL . DELBL . DELBL *-04 0 . KKK ♦ 0 .DELLAST ( 

1 CALL D I SCOT (XL AST (4 ) .XL AST < 4 ) * XBL i DELBL ♦ DELBL . -04 0 • KKK . 0 .DELLAST ( 
14 ) ) 

GO TO 1310 

1280 XSEP1=X0L<KKK)-O.1O 
XSEP2=XBL (KKK >-0.08 
XSEP3*X0L (KKK )/2. +0.50 

XSEP4= 1 .00 , 

CP 1 =2 • 0 * I ORD I N <P'. A ( 2 ) • XSEP 1 > /TEMP- 1 .0 >/A( I2}/'EM**2. ) 

CP3=2.0*(0RDlN(P.A(2).XSeP3>/TEMP-l.0)/A(i2>X<EM**2.> 

CALL D 1 SCOT ( XSEP t .XSEP1 ♦ XBL . DELBL .DELBL. -040. KKK .O.YSE > 

CALL 01 SCOT (XSEP2.XSEP2 .XBL .DELBL. DELBL. ^040* KKK .0.YSEP2 ) 

YSEP3- YSEP l +0 • 033* ( CP3-CP l ) -0 .022* ( XSEP3 XSEP1 ) 

YSEP4= ( YSEP1+YSEP31/2.0 
DELX2=XSEP2-XSEP1 
DELX3=XSEP3-XSEP1 
DELX4=XSEP4-XSEP1 
° DELY2=YSEP2-YSEP1 
DELY3=YSEP3-YSEP1 

ad!^ v-^DEL Y2*DFLX3*DELX4* I XSEP4-XSEP3 ) -DELY3*DELX2*DELX4* ( XSEP4 -X5 
1EP2^+0ELY4*DELX2*DELX3*^XSEP3— XSEP2 > ( XSEP2**3-XSEP1 ** 3 ) *DELX3*D 

2ELX4*°XSEP4-XSEP3>-(XSEP3**3-XSEP1**3)*0ELX2*DELX4*(XSEP4-XSEP2)F( 

1v c f pa*#3-xSEP1 **3 )*0£LX2*DELX3* (XSEP3-XSEP2 > ) 

BPOLY= < DEL Y3*DELX2-OEL Y2*0ELX3-AP0LY* ( ( XSEP3**3-XSEP 1 **3 ) *DELX2- 
, cpp->** 3 - xSEP 1**3) *DELX3 > J/DELX2/DELX3/ ( XSEP 3— XSEP2 ) 

CPOL Y= * DELY2-BP0L Y*DELX2* I XSEP 1 +XSEP2 ) - APOL Y* < XSEP2**3-XSEP > **3 , ) / 

1 DP0LY=YSEP1-CP0LY*XSEPI-BP0LY*XSEP1.*#2-AP0LY*XSEP1**3 

DO 1300 J=1.NL 
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IF < XBODY ( J ) *GT *XSEP2 ) GO TO 1290 

CALL D I SCOT ( XBODY < J ) *X0ODY ( J) » XBL * DELBL 9 DELBL * -04 0 « KKK 1 0 « DELBLX A J 
GO TO 1 300 

1290 DELBLXA = APOLY*XBODY < J > **3+BP0LY# XBODY l J ) **2+CP0L Y*XBODY ( J ) +DPOLY 
1300 DELBLX ( J )=DELBLXA 
1310 CONTINUE 
K5URF=2 

DO I 320 J = N13 
1 320 1 ( J > * l TEMP < J > 

DO 1 330 J = 1 « 19 
1330 At J) =ATEMP(J ) 

WRITE ( N3 1 COMF 

EITHER REPEAT B# L. CALCULATIONS FOR OTHER SURFACE OR DEFINE 
EQUIVALENT INVISCID AIRFOIL IF both surfaces are complete 

IF (NORUN-NUMBER) 70*1 340 9 1 340 
1 340 00 1 350 J=I»NT 

ANG=BODSLOP ( J ) *3* 1 4 1 59/100 ♦ 0 

XNEW < J ) = XBODY ( J ) + DELBLX <J)*SIN(ANG ) 

1 350 YNEW ( J ) = YBODY < J ) -DELBLX ( J J *COS I ANG ) 

IF (XLAST ( 1 > oGT *1 *0) GO TO 1410 

DEFINE DELSTAR AFT OF LAST CALCULATION POINT ON UPPER SURFACE TO 
MAINTAIN SLOPE OF EOUlV INV A 1 RF CONSTANT FROM LAST CALC POINT TO 
C THE TRAILING EDGE 

JJJ=NL1 

1360 IF < XBODY < J J J ) oGT o XLAST ( I > ) GO TO 1370 
JJJ-JJJ+1 
GO TO 1360 
1370 ISURF=1 

ISTRT1 =JJj-5 
IFNSHI = JJJ 
I STRT2= JJJ 
]FNSH2=NT 
ItNDX=6-JJJ 

1380 DO 1390 J= 1 STRT1 0 IFNSHI 
JM = I 1NDX-J* t -1 >** I SURF 
XXX ( JM \ =XSOD Y ( J ) 

YYY ( JM > = YBODY ( J > 

1390 B8B ( JM > =BODSL0P ( J ) 

XLST = XLAST ( I SURF ) 

XLSTM = XLAST( ISURF+2 ) 

CALL OISCOT (XLST * XLST, XXX * Y YY. YYY 1-030 ♦ 60 O.YLST > 

CALL OISCOT <XLSTMi XLSTM 1 XXX 1 YYY 1 YY Y 1 -030 1 6 • 0 « YLSTM) 

CALL OISCOT (XLST 1 XLST ,XXX 1 BBBi BBS i-030 ♦ 61 O iBLST ) 

CALL OISCOT ( XLSTMi XLSTMiXXX if3BB 1 BBB 1 -030 16 • 0 iBLSTM j 

ANG=BLST*3. 1 4159/1 80 oO 

XL ST = XLST +DELL AST ( 1SURF)*S1N (ANG) 

YLST=YLST-DELLAST ( ISuRF > *COS ( ANG ) 

AnC=BLSTM*3© 141 59/ 1 80*0 

XLSTM^XLST M+ DELL AST < J SURF+2 ) *S I N ( ANG ) 

YLSTM- YLSTM— DELL AST < ISURF+2 >*COS( ANG 1 
SEPSLOP * (YL5T-YLSTM ) / ( XLST-XLSTM ) 

DO 1400 J= ISTRT2 * IFNSH2 

ANG = eODSL OP ( J )*3. 1 4 1 59/1 BO* 0 

DELBLXAr=(YGODY ( J)-YL5T+SEPSLOP* tXLST-XBODY ( J ) ) ) / { SEPSLOP*S I N ( ANG ) + 
1 COS (ANG) ) 

IF { DELBLX A • GT » 0 a C25 ) DEL0LX A = 0 . 025 
IF ( DELBLX A ®LT«0«000) DELBLXA=0 .000 
DELBLX ( J ) = DELBLX A 

XNFW ( J ) = XBODY f J ) +DELBLX ( J ) *S I N ( ANG ) 

1 400 YNEW < J > 55 YBODY < J ) -DELBLX ( J > *C05 f ANG ) 

IF ( 1 SURF oGT » 1 ) GO TO 1440 
1410 IF (XLAST <2 > *GT*1 *0 ) GO TO 1440 

C SIMILARLY DEFINE DELSTAR ON LOWER SURFACE IF PRES DlST WARRANTS IT 

JJJ= 1 

1420 IF (XBODY (JJJ ) «LT. XLAST (2 ) ) GO TO 1430 
JJJ- JJJ+I 
GO TO 1420 
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1430 l SURF =2 D6490 

IF ( JJJ m EO* 1 ) J J J = 2 06500 

ISTRT1-JJJ-1 D65J0 

IFNSH13 JJJ + 4 D6520 

I STRT 2=1 D6530 

IFMSH2=JJJ-1 0654 O 

I I NDX = J JJ +5 06550 

GO TO 1 3B0 06560 

C REDEFINE THE TRAILING EDGE COORDINATES OF EQUIV INV A I RF SO THAT D6570 

c the last x/c is i *o on both surfaces D65eo 

1440 NTM5=Nt-5 D6590 

DO 1450 J=NTW5,NT D660O 

JM = J— NT +6 D661Q 

XXX ( JM > =XNEW < J ) D662 A 

1450 YVY ( JM j =YNEW ( J ) D6630 

CALL DI SCOT <XTRA IL i XTRA IL »XXXf VYY* YYV «-030 * 6* O ♦ YTRA I L ) D6640 

XNEW < NT > =XTRA I L D6650 

YNEW<NT >=YTRAIL 06660 

NLM5=NL-5 06670 

DO 1460 J=NLM5*NL D6680 

JM=J-NL+6 D6690 

XXX ( JM ) -XNEW t J ) D6700 

1460 YYY < JM ) = YNEW < J) D67J0 

CALL DISCOT (XTRAIL»XTRA1L < XXX*VYY»YVY«-030»6»0iVTRAIL) D6720 

XNEWtNL )=X TRAIL D6730 

YNEW INL ) -YTRAIL 06740 

RETURN 06750 

END D6760- 

SUBROUTINE BOTH E 10 

COMMON PH 1 t 162*33 1«FP(162« 33) E 20 

COMMON /8/ A A < 1 0 0 > * EB (100) E 30 


COMMON /C/ M,MM,WP,N,NN,LL*LPUUMUMMilM3,I[isiJUK t JKU7WTYP,MXP E 40 
1 *NS*NCY *TE»P I * RAD* TP * TP 1 ( QT i DR* DELTH * DELR * RA » PASi RA2 * RA3 »RA4 %RA5 * E E 50 
OC R I T »C 1 * C2 * C4 * C5 »C6iC7«0 ET iEPSIl * TC • CL * CHO * ALP * At_PO* DPMI , XPH 1 , C E 60 
3N » SN* EP <C3<RA7iRAtt» RA9 * EL * XM * XS « FSYM * ST t X % Y * YM * XA ♦ Y A * AO ♦ BO ♦ KP * YR * E E 70 


4 MO ♦ EE • I 0 I M * NFC • NMP * I S ♦ N2 « N3 ■ N4 * N5 * M4 *NRN E 80 

COMPLEX 2 E 90 

COMMON /A/ A <40 ) *0 < 40 ) ,C (40 ) iD( 40 ) »E (40 ) * RHO ( 40 ) i RP < 40 1 * R< 41 > *RS < 4 E 1 OO 
n ) *R1 (41 ),SI (162) *C0<J62 > »ZI 162 > *FM f 1 62 > »PHlR( 162) E 110 

DIMENSION XY ( 2 ) E 120 

EQUIVALENCE <XYU)*Z(1>> E 130 

PF=1.XX E 140 

DELR=X*DELR E 150 

DELTH *X*DELTH E 160 

DR -PF *DR E 170 

OT=PF*DT E 180 

RA3=PF*PA3 E 190 

RA4“PF*PF#RA4 E 200 

RA5=PF*RA5 e 210 

NCY=0 E 220 

MP=MM+1 E 230 

CALL PERMUT 1R,NN,1 1 E 240 

CALL PERMUT <RS*NNi 1 ) E 250 

CALL PERMUT <RI*NN,1) E 260 

CALL PERMUT fCO*MP*l> E 270 

CALL PERMUT (SltMP.l) E 280 

CALL PERMUT (PHlRtMPtl) E 290 

CALL PERMUT tZ,MP*2) E 300 

CALL PERMUT (XY<2>*MP*2> £ 31 0 

CALL PERMUT <FM*MP*1) E 320 

DO 10 L - 1 *NN E 330 

call PERMUT (FP( 1 «L > *MP« 1 ) E 340 

10 CALL PERMUT (PHItl*L>* MP « 1 ) E 350 

DO 20 L = i * MP E 360 
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c 


c 


CALL PERMUT f FP (L ♦ 1 ) < NN , I D I M ) 

20 CALL PERMIT (PHI (L»t ) « NN . I D I M > 

MM=M+1 
mp=mm+ I 

LL=MP/2 

LP=LL+2 

IF (XoEQ« o5) GO TO 70, 

DO 30 L=1 ( M, 2 
DO 30 J = 1 *NN * 2 

30 PH](L + HJ)=o5^(PHI (L» J) +PH 1 (L + 2* J> ) 

00 40 Ji 1 .N. 2 
DO 40 L - 1 . MM 

40 PHI(L*J + 1 )=»5*(PH1 ( L * U ) +PH I ( L * J+2 ) ) 

DO BO K= 1 . NN 
FPC2.K )=FP< MPtK > 

50 PH I ( MP . K ) =PH l ( 2 . K > +DPH I 
DO 60 L - 1 .MP 
BQ=FLO A T ( L“ 1 >*DT 
CO < L )=COS (00 > 

60 SI <L )-SlN(9Q ) 

CALL COS! 

RETURN 
70 NN=N+I 

DO 80 K = I o NN 
FP(MP»K )=FP< 2 .K ) 

80 PHJ <MP«K ) =PH I (2 .K l+DPH t 
CO (MP ) =CO<2 ) 

5 I (MP)sSI (2 ) 

PH T R ( MP ) =PH I R ( 2 ) + TP 

RETURN 

END 

SUBROUTINE CONVER ( I CHECK . KC YCLE «M»CL«Z» CP SURF . NC Y l 

CHECK FOR CONVERGENCE OF I NV l SC I D-FLOW/BOUNDARY-L A YER ITERATION 

COMPLEX Z 

0 I MENS I ON CPSURF (162). CP0LDM62). Z ( I 62 ) * X ( 1 62 ) 
mplus=m+i 

IF KCYCLE EQ 1 JUST DEFINE OLO VALUES FOR COMPARISON ON NEXT CYCLE 
IF (KCYCLEoEQo 1 ) GO TO 30 

1 CHECK = 1 

NCY LE 20 INDICATES CONVERGENCE 
IF (NC Y ©LE o 20 ) GO TO 50 

THE CL AND EVERY CP REPEATING WITHIN A SPECIFIED TOLERANCE 
INDICATES CONVERGENCE 
DELTACL = ABS < CL-CL OLD ) 

IF (DELTACLoGTa 0 o O2 ) GO TO 30 
DO 10 L=1 .MPLUS 
10 X(L)=REAL (Z(L ) ) 

DO 2 0 L -2 * M 

SLOPE 1 = < (CPSURF (L > -CPSURF (L-l J ) / C X ( L ) -X ( L - 1 ) ) ) **2 
SLOPE2= ( (CPSURF (L > -CPSURF ( LF1 j > / ( X ( L ) — X ( L-f 1 } ) ) **2 
SL0PE3= t (CPOLD (L)-CPOLD(L-l ) )/ (X (L ) -X (L — 1 > ) ) **2 
SLOPE 4 ( ( CPOLD ( L > -CPOLD ( L + 1 ) ) / ( X ( L > -X (L-vl >))**2 
SL0PEM = AMAX1 ( Si. OPE 1 % SL0PE2 * SLOPE3 . SLOPE 4 > 

TEST = 0 * 00 05# SLOPE M+0 *025 
DELTACP=ABS (CPSURF (L ) -CPOLD <L J > 

IF (DELTACP.GT.TEST ) GO TO 30 
20 CONTINUE 

SLOPE 1 - ABS ( (CPSURF ( 1 ) -CPSURF (2 ) 1 / ( X ( 1 ) — X < 2 1 1 i 
SL0PF2 = ABS ( < CPSURF (M } -CPSURF ( MPLUS ) ) / ( X < M ) -X ( MPLUS ) ) ) 

SLOPE 3 = ABS ( < CPOLD ( I > -CPOLD (2 > >/<X ( 1 >-X (2 ) > ) 

SLOPE4 = ABS ( ( CPOLD (M > -CPOLD £ MPLUS ) >/ ( X CM ) -X ( MPLUS > > > 

t e slop i - ( ( S lope i + slope 2 )/2.0)**2 

TESL0P2= ( (SL0PE3+SL0PE4 >/2.0 1**2 
SLOPEM=AmAxi ( TESLOP 1 ♦ TESL0P2 I 
TEST -Om 0005* SLOPEM+O* 025 
DELTACP-ABS ( CPSURF( 1 ) -CPOLD ( I) 1 

IF (DELTACP.LE.TEST } GO TO BO 
30 I CHECKS 0 

DO 40 L=1 .MPLUS 
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40 CPOLD I L 1 =CPSURF < L 1 
CLOLD=CL 
50 RETURN 
END 

SUBROUTINE COS I 

COMMON PH I C 1 62*33 ) *FP ( t62, 33 ) 

COMMON /B/ AA < lOO ) ,BR< 100 1 

COMMON /Z/ M ♦ MM * MR * N »NN »LL»LP* 1 « t M » l MM , I M3 * I I < UJ * I K i JK , I Z ♦ I T YP « MX 
1 .NS.NCY.TE.PI , RAD. TP, TP I , DT . DR . DELT H . DELR . R * . RAS . R A2 . R A3 . R *4 , RA5 . E 

2M.QCRIT.C1 .C2.C4,C5.C6,C7.BET.EPS]L.TC,CL,CHD,AlP, ALPO.DPH l .XPH! ,C 

3N. SN .EP »C3 ,RA7 ,RA8.RA<3 ,EL < XM.XS.FSYM.5T . X . Y » YM . XA . YA . AO . OO .KP . YR . E 
4 MO* EE * 10 IMi NFC «NMP» 1S«N2,N3.N4,N5,M4 ,NRN 

COMMOtWA/ A(40).0(40>,C(40).D(40).EC40),RHO(401,RP(60).R(A1 ».RS(4 

1 1 >,RI (4 1 1 .SI (162) ,C0< 162 1.ZM621 .FMM6P) .PHIR< 1621 
DO 10 L = 1 i M 
X = C 0 { L ) 

CO <L > = X*CN-S 1 <L)*SN 
10 SI (L > = S I <L)*CN + X*SN 
CALL INIT 
RETURN 
END 

SUBROUTINE CPLOT <X»N) 

COMMON /D/ SF . S IZE . ANG, XMAX , YMAX, XOR ♦ YOR . PGS I Z 
DIMENSION X < 2 ) 

CHANGE RELATIVE MOVEMENTS TO ABSOLUTE INCHES 
XX=XOR+SF*X < 1 > 

YY = Y0R+SF*X I 2 > 

CHECK TO SEE IF 


WE ARE within 


THE PAGE 
( XX * GT i 


XMAX ) .OR. ( YV.GT, YMAX ) ) GO T 


380 

390 

400 

410 

420- 


IF ( < XX «LT« 0* ) *0R ♦ ( YY.LT *0 ♦ ) ■ OR 
10 20 

10 CALL PLOT (XX, YY, IA0S(N) ) 

IF <N.GT«0> RETURN 

XOR=XX 

YOP- VY 

RETURN 

20 IF (N«LT*0) GO TO 30 

XX =A MAXI (0. . AM INI (XX.XMAX) ) 

YY = AM A X 1 < 0 • « AM 1 N 1 (YY.YMAX) ) 

GO TO 10 
GO TO NEXT PAGE 
30 XOP=0. 

YOR=-3*0 

CALL PLOT (PGSIZ.O..N) 

RETURN 

END 

SUBROUTINE CRUDER 

DOUBLES THE MESH StZF 

COMMON PHI(t62*33)<FPU62«33) 

COMMON /B/ A A ( 1 0O 1 i BB < 1 00 ) 

COMMON /C/ M ,MM ,MP,N ,NN,LL , LP . I * 1 M . I MM, I M 3 . I I . J J . I K . JK , I Z . * TYP * X 
1 .NS.NCY.TE.Pl , RAD, TP. TP 1 ,DT , DR , DELTH , DELR * RA . R AS , R A 2 , R A 3 . RA 4 , RA 5 , E 

2M, 0CR1 T, C 1.C2.C4.C5.C6. C7.BET.EPS IL.TC. CL, CHD, ALP. ALPO.DPHl .XPHI ,C 

3N.SN.EP.C3.RA7 .RA8 » RA9 • EL * XM .XS.F5YM ,ST , X . Y . YM . XA , YA . AQ . BO .<P . YR « E 
4M0 * EE ♦ 1 DIM, NFC ,NMP» I S • N2 , N 3 , N4 , N5 , M4 , NRN 

COMMON /A/ A (40 > ,B(40 ) ,C (40 ) ,D< 40 1 ,E (40 } ,RHO (40 ) • RP 140 > .R ^ 41 ) ,RS < 4 

U hRl 141 > ,SI ( 162 ) .CO (162) .Z( 162 1 ,FMU62 ) , PH 1 R < 162 > 

X = • 5 
M = M/2 
|\| -N/? 
lJalI/2+1 
jJ=JJ/2+l 
CALL BOTH 
RETURN 
END 

SUBROUT I NE 
COMMON /D/ 


DIMENSION X < 2 ) 


CSYMBL (X.N.L) 

SF « SI ZE , ANG, XMAX , YMAX, XOR « YOR.PGS I Z 
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CHANGE relative movements to absolute inches 

XX=XOR+SF*X< 1 \ 

YY=YOR+SF*X < 2 ) 

CHECK TO SEE IF WE ARE WITHIN THE PAGE 

IF ( (XX.LTeOc >.OR« <YY«LT.O* )cOR. (XXoGT oXMAX > 0 OR 0 ( YY oGT oYMAX ) ) RETu 
1RN 

CALL SYMBOL ( XX 9 Y Y « S I ZE * N 9 ANG *L I 

return 

END 

SUBROUTINE DlSCOT <XA,ZA*T A8X* T ABY , T ABZ ?NC *NY *NZ * ANS 3 
interpolation ano extrapolation routine 

DIMENSION TABX<2)* TABY<2>, T ABZ ( 2 3 * NPX(6)« NPY(0)« YY < 8 ) 

CALL UNS (NC 9 I A* I OX * IOZ , IMS) 

1 F (N2-1 ) 10*10*20 

10 CALL DISSER (XA*TABXU >*1 *NY*IDX*NN> 

NNN= IDX4 1 

CALL LAGRAN < XA , T ABX ( NN ) 0 T AB Y < NN ) * NNN * ANS ) 

GO TO 120 
20 ZARG=ZA 

IP1X=IDX+1 
I PI Z = I DZ-f 1 
IF ( I A ) 30*50,30 

30 IF (ZARG-TABZ (NZ ) 3 50*50*40 
40 ZARG-TABZ {NZ ) 

50 CALL DISSER < ZARG * T ABZ (1 > * 1 , NZ * I DZ , NPZ > 

NX -NY/NZ 
NPZL-NPZ4 IDZ 
1=3 

IF (IMS) 60*60, BO 

60 CALL DISSER I XA * T ABX <1 ) * 1 *NX * I DX *NPX U ) ) 

DO 70 JJ=NPZ*NPZL 

NPY (1 )-( J J- 1 > ONX+NPX < \ ) 

NPX < I ) =NPX ( 1 ) 

70 1 = 1+1 

GO TO 100 

00 DO 90 JJ=NPZ*NPZL 
15 = ( JJ~1 )*NX4i 

CALL DISSER (XA,TAQX(1 >»IS*NX*JDX, NP X < I ) ) 

NPY < I ) =NPX ( I ) 

9C 1*1 + 1 

100 DO 11 0 LL - 1 , IP1 Z 
NLOC=NPX <LL 3 
NLOCY-NPY (LL 3 

llO CALL LAGRAN < XA 9 T ABX (NLOC ) * T A0Y ( NLOC Y } , I P 1 X * YY ( LL ) ) 

CALL LAGRAN < ZARG * T ABZ ( NPZ >, YY < 1 J * J P 1 Z , ANS ) 

120 RETURN 
END 

SUBROUTINE DISSER ( X A * T AB * I , NX * 1 D , NPX ) 

DIMENSION TAB (2) 

NP T - IDF I 
NPB=NPT /Z 
NPU=NPT-NP5 
IF (NX-NPT) 20,10*20 
10 NP y = I 
RETURN 

20 NLOW=l+NPB 

NUPP= J +NX- (NPU+ I 3 
DO 30 II=NLOW*NUPP 
NLOC = I 1 

IF (TABCIM-XA) 30,40,40 
30 CONTINUE 

NPX=NUPP-NPB+I 

RETURN 

40 NL=NLOC-NPB 
NU-NL+ I D 
DO 50 JJ=NL*NU 
NDI S- J J 

IF (TAB( JJ)-TA0< JJ+1 ) 3 50,60,50 
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50 


60 

70 


80 


CONTINUE 
npv =nl 
RETURN 

IF (TAB (NDI 5 >-XA ) 80,70,70 

NPX- NO I S- ID 
RETURN 
NPX-NC I S+ 1 
RETURN 
END 

SUBROUTINE FI NT (R,U,W*T,J,A.,B»C) 

DIMENSION U<I!0)« T(HO>, W(UO) 

C 1 = l .~R**2 

C2 = 0-5* (R**2+R) 

C3=0#5* (R**2-R ) 

A-C l *U( J)+C2*Uf J+l >+C3#U(J-l ) 

B=C1*T (J)+C2*T (J+1 >+C3*T < J-l ) 

C-Cl *W( J)+C2*W ( J+l ) +C3*W (J-l ) 

RETURN 

END 

FUNCTION FN <Z> 

A = SQRTU.+2) 

FN = 2 • * I ALOG ( 2 ■ / ( 1 » + A) > +A-1 • ) 

RETURN 

END 

subroutine forces icdf> 

COMPUTE LIFT. DRAG. AND PITCHING MOMENT COEFFICIENTS BY 
INTEGRATING THE PRESSURE DISTRIBUTION 

COMMON /E/ K CYCLE. FNU.FNL. 1BNDLAYI I 3).ABNDLAY< 19) .XBODYI 16^) .YBO0Y 

1 I 2 62 ) .BODSLOP < 1 62 ) * BCDCURV 1 82 > ♦ XNEW ( 162) .YNEWI 162) .CPSURF < 162 ) .CPB 

20LYI82 ) . !GR1D.GRID.X'JPLE<20> .XUPARCI20) .XLOLC(20 ) , XLOARC I 20 > • T I TLO 
3UT (IS) .CLOUT (3.7). SUPOUT (3.7) .SLOWOUT 13.7 ) .CMOUT . CPUP <85 ) . CPLOl B 
4 i XTFMUP ( SS ) . XTEMLO ( 85 ) . DElBLX I 162 ) . KOUNT .KOUNTUP.LOWGRO . II NVD1 V 
COMMON /C/ M.MM.MP.N.NN.LL . LP . I • I M . I MM , 1 M3 , 1 I . J J . I K . JK . I Z . I T YP . MXP 

1 .NS.NCY.TE.PI .RAD. TP. TP1 ,DT. OR. DELTH.DELR.RA,RAS,RA2,RA3,RA4.RAS.E 
2^CCRIT,Cl.C2.C4.C5.C6.C7,BET,EPSlL.TC.CL.CHD.ALP.ALP0.DPHI.XPHt.C 
3N.SN.EP.C3.RA7.RAB.RA9.EL.XM.XS.FSYM.ST , X . Y , YM , XA . YA , AO , BO .KP , YR . E 
4M0.EE. IDIM. NFC, NMP. IS, N2.N3.N4. NS. M4.MRN.MCASE 

DIMENSION XT MB <101 T . YTMBIIOl). XTMN(lOl). XBN ( I 62 ) . YBNU62). CPB 
1 N ( l 62 ) 

NU=FNU 
NiUMl = NU-1 
NL=FNL 
nlmi -nl- t 

TRANSFER PRESSURE DISTRIBUTION FROM SURFACE OF EQUIVALENT 
INVISCID AIRFOIL TO ACTUAL AIRFOIL FOR COMPUTATION OF FORCES 
DO 10 K = 1 * KOUNT 

IF (XTEMLO IK ) *LE#XNEWCNLM1 ) > GO TO to 
KST0PL=K-1 
GO TO 20 
CONTINUE 
DO 30 K = 1 ♦NLMI 
XTMB (K ) =XBOD Y (K ) 

YTMB (X ) = YBOD Y ( K ) 

XTMN ( K > =XNEW <K ) 

DO AO K- I *KSTOPL 

CALl'd^SCOT ^XTEMLOIK > ♦XTEMLOIK ) ,XTMN*XTMB, XTMB, -030, NLMI .0«XBN<«M 

'call DISCOT tXBN(KMNS) , XBN ( KMNS > , XTMB , YTMB ♦ YT MB , -030 ,NLM 1 , 0 , YBN < KM 
1 NS > ) 

40 CPBN IKMNS l=CPLO I K ) 

XBN < 1 }=XBODY(NL > 

YBN< 1 > = Y0ODY (NL ) 

CPBN ( i ) =CPLO (KOUNT I 
DO 50 K=t ,NUM1 

kpls=k+nl 

XTMBCK )=XBODY (KPLS) 

YTMB (K > =YBODY (KPLS I 
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GO TO 60 


XTMN ♦ XT MB « X T MB 9 —0 30 9 NUM I 90«X3N(KP 
03C » NUM 1 9 0 9 YBN (KP 


50 XTMNfK J=XNEW(KPLS) 

DO 70 K = I • KOUNTUP 
KPLS =K + KST 0PL + 1 
IF ( XTEMUP (K ) oLEdXTMN < NUM I ) ) 

KSTOPU^K- 1 
GO TO 80 

60 CALL OISCOT (XTEMUP fK J 9 XTEMUP <K J 
1LS >) 

CALL OISCOT ( XBN ( KPLS ) 9 X8N < KPLS ) 9 XTMB • YTMB9 YTMB 9 
1LS ) ) 

70 CPBN (KPLS >=CPUP <K ) 

00 ktot=kstopu+kstopl+i 

XBN ( KT 0T+ I > = X80DY(NU + NL > 

YBN < KT OT + 1 ) = YBODY (NU+NL ) 

CPBN < KTOT + 1 > =CPUP (KOUNTUP) 

CLP- 0 « 0 
CDP-OoO 
CMP= 0 o 0 

INTEGRATE PRESSURE DISTRIBUTION 
DO 90 K-l « KTOT 
DX=XSN (K+l ) — XBN ( K > 

DY = YBNf KF1 )-Y0N(K > 

XAVE=0*5* <XBNfK+l )+XBN(K)> 

YA VE = 0 * 5* < YBN (K+ l ) + YBN ( K ) ) 

CPA=0«5*(CPBN(K+| )+CP6N<K) ) 

DCL=— CPA^DX 
DCD=CPA*DY 

DCM=DCD*YA VE-DCL* (XA VE-« 25 ) 

CLP=CLP+DCL 
CD P=C DP -fOCD 
90 CMP=CMP+DCM 

CORRECT FOR BASE PRESSURE AND FRICTION DRAG 
CDT=CDP+COF+CPBN ( I ) * ( YBN ( 1 ) -YBN ( KT0T+ 1 ) ) 

ALPHA=ALP/RAD 

adjust coefficients for angle of attack 

CDC = CDT*COS( ALPHA >+CLP*S I N ( ALPHA ) 

CLC=CLP*COS ( ALPHA )-CDT*SlN( ALPHA ) 

CLOUT ( IGR I DF1 «KC YCLE ) =CLC 

CMOUT-CMP 

X = CDC 

Return 

end 

SUBROUTINE GETCP 

COMPUTE PRESSURE COEFFICIENTS 

COMMON PHJ <I62*33)«FPC I62«33) 

COMMON /B/ A A ( 1 Oo > 9 BB ( 1 00 ) 

,r:/5; p; M p:n P ;o'T ,LL,t - P ’' • IM ’ ,MM ’ ,M3 ‘ 1 1 tJJ ’ t2. UVP.HXP 

2M?0CRI^T ( f 'rp'r^ r R,DEL ™ ,DELR ’ QA,RAS ’ RA2 ’ RA3 * RA4 ’ r A5‘E 

C5 ’ C6,C7 ’ 0eT ’ EPSlL ' TC,CL ’ CHD,ALP * A L-P0.DPHl,XPHt,C 

4Mo?Eetm^ , NFr , NMn , ?rK ,EL ' XM,XS,FS¥M,5r,x,v,YM,XA,YA ’ AQ ’ 0Q ^ p * VR ' E 

' EE 9 I D I M 9 NF C 9 NMP , 15» N2 » N3 9 N4 « N5 9 M4 % NRN 

COMMON /£/ KCYCLE.FNU.FNL. I BNDL A Y ( J 3 ) . ABNDl* y ( 19) . X80C1Y ( 1 6 £ ) . YBOOY 
2 DL i 6 2 ) . BOOCUR V 1 S 2 ) • XNEW 1 ! 62 ) * YM£ W (162) ^CPSUftF^^62 I^CPB 

OUT n aOPTn 6 ? ! D * X ^ PLE (2 ° ’ ’XUPARC <20 ) . XLOLE (20 ) . XLOARC ( 2CU f TI TLO 

. ^ } - T f 3 *7 ) « SUPOUT ( 3 * 7)9 SLOwOUT (1»7 >, CMOUT 9 CP UP ( 85 1 , rp< q < * 

COMPLEX ‘ ® 5 ’ ’ XTEML0 1 65 ’ * OEL0LX < 162). KOUNT . KOUNTUP . LOWGPO . [ NVD 1 V 

in?Rn4M / s^^?! B rn 0 . > ’ C< " ,0> ’ D(40,,E{40,,RHO(40, ' RP{40, ' R<Al >' R s(4 

INTEGER ft’ 3, ' Z< 16?, ’ FM(!62 >- p HlRU62) 

COMPLEX CLCD 9 TMP 9 C I 9 zer , cexp 
DIMENSION OS ( 1)9 XFITO), YF I T ( 3 ) 

EQUIVALENCE (QS ( 1 ) ,PHI W ( i > > 

CPR ( Q ) = C5* < A MAXI (0*9 C4-C6*Q> **C 7-1 * ) 

IF ( 1NVD1 V*EOoO ) GO TO 20 
DO 10 L = I 9 MM 
10 CPSURF ( L ) =0 o 0 

CLOUT ( f GR I D+ I 9KCYCLE ) =999* 0 
RETURN 
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c 


20 


30 


LLL-MM-M/40+ 1 

LLLM1 =LLL-1 

LLLM2=LLL-2 

JJJ=M/4 0 

J JJP l - J JJ + 1 

JJJP2= JJJ+2 

DO 30 L=JJJP 1 iLLLMl 

U= (PHI (L+ I i 1 > “PHI <L- 1 * 1 > >*DELTH-S I (L) 
05 ( L ) - (U*U l/FP <L * 1 > 


CPSURF < L ) =CPR (OS (L ) ) ______ 

DEFINE CP AT THE TRAILING EDGE BY CONSIDERING THE 1 * _ D 

The CP DISTRIBUTION NEAR THE T. E. RATHER THAN AVERAGING THE U 
AND LOWER CP AT THE POINTS JUST FORWARD OF THE T. E. 

TESLOPU = < CPSURF (LLLM1 ) -CPSURF (LLLM2 ) )/ < REAL < Z CLLLM 1 > > REAL Z (LL 


1 TESLOPL = < CPSURF < JJJP1 ) -CPSURF t JJ JP? I ( REAL < Z ( JJ JP 1 > ) -RE AL ( Z ( J J JP2 

1 ) ) ) 

IF ( TESLOPL*GT .2# O ) GO TO 60 
LOWGRC = - 1 
DO 40 L -2 * JJJ 

U- (PHI (L+] i 1 ) -PH [ (L - 1 « 1 ) ) *DELTH-5 I < L > 

GS ( L ) - ( U*U ) /FP ( L * I 1 
40 CPSURF t L ) =CPR (OS ( L > ) 


*50 


DO 50 L=LLL*MM 

CPSURF < L ) -CPSURF (LLLMi >+ TESLOPU* ( REAL < Z (L 1 ) —REAL < Z (LLLM1 
Q5 (L )- ( C4- (CPSURF <L > /C5+1 • >** ( 1 */C7 ) >/C6 
CPSURF ( 1 ) =CP SURF ( MM > 

OS (1 ) -OS C MM > 


) 1 > 


GO TO 160 

6C CPTEU= CPSURF (LLLM1 )+ TESLOPU* ( REAL (Z(MM)) -REAL (Z (LLLM1 ) ) > 
CPTEL= CPSURF ( J JJP 1 ) +TESLOPL* (REAL (Z< 1 ) > -RE AL ( Z ( J J JP 1 1 ) ) 


BO 


IF (CPTEU-CPTEL ) 70*100030 
DO BO L= 1 *JJJ 

CPSURF (L)=CPSURF I JJJPl ) +TESLOPL* ( RE AL ( Z ( L ) ) -REAL ( Z ( JJ JP1 ) > > 
QS ( L ) - < C4- ( CPSURF (LI /C5+1 .)**(! «/C7 I ) /C6 
XF I T < l ) =PEAL ( Z ( LLLM2 ) > 

XF I T ( 2 ) =RFAL ( Z ( LLLM 1 ) ) 

XF I T ( 3 ) -REAL (7(1 > ) 

YF 1 T ( 1 >=CPSURF (LLLM2 ) 

YF 1 T ( 2 ) = CPSURF ( LLLM I ) 

YF I T < 3 > -CPSURF ( I > 

DO 90 L=LLL*MM 


90 


XLOOK = REAL <Z(L) ) 

CALL DISCOT (XLOOK • XLOOK *XFI T* YF I T * YF I T * -020 *3 * 0 * 
OS <L 1= <C4- (CPSURF (L 1 /C5+I •)**(!• /C7 ) )/C6 


CPSURF (LI) 


GO TO 160 

100 DO no L - 1 * JJJ 

CPSURF ( l- ) = CPSURF (JJJPl ) + TESLOPL* < REAL ( Z ( L 11 
110 QS (L )= (C4- (CPSURF <L >/C5 + \ . )** ( 1 »/C7 > >/C6 


-REAL (Z< JJJPl 


1 20 


DO 120 L=LLL*MM 

CPSURF (L )=CPSURF (LLLM1 > + TESLOPU* (REAL <Z (L > ) 
OS <L > - < C4- (CPSURF (L 1 /C5+1 . ) ** ( 1 • /C7 1 )/C6 


-REAL ( Z (LLLM1 


> ) ) 


> ) > 


1 30 


1 40 


GO TO 160 
DO 140 L=LLL*MM 

CPSURF (L ) ^CPSURF (LLLMl }+ TESLOPU* (REAL < Z ( L 1 ) —REAL 
QS (L )= ( C4- (CPSURF (L 1 /C5+1 . ) ** < 1 «/C7 ) ) /C6 
XFITll ) =RFAL < Z ( JJJP2 ) ) 

XF 1 T ( 2 > =REAL <Z (JJJPl ) > 

XF IT (3 ) =PEAL (Z (MM ) ) 

YF IT ( 1) -CPSURF ( JJJP2 ) 

YF 1 T ( 2 1 =CPSURF ( JJJPl 1 
YF I T ( 3 ) =CPSURF ( MM ) 


( Z ( LLLM i ) ) > 


150 

160 


DO ISO L= 1 * JJJ 
XLOOK-REAL (Z(L ) > 

CALL DISCOT (XLOOK,XLOOK,XF 

QS (L)=<C4— (CPSURF (D/C5+1 . > 

CALL PH1RR 

RETURN 

END 


1 T * YF I T* YF I T *-020*3 * 0 * CPSURF (L > ) 
** ( 1 • /C 7 ) ) /C6 


P 280 
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SUBROUTINE GOPLOT <N) O in 

C INITIATE PLOT Q 20 

CALL calcomp q BO 

CALL LEROY G *0 

RETURN 0 

END 0 60 ~ 

FUNCTION GORD (Z) R 10 

IF (Z~°63) J 0*20*20 R 20 

lO GORD= I 7o5fi-Z**l *Qfe R 30 

GO TO 50 Q AO 

20 IF (Z-o89> 30*40*40 R 50 

30 G0RD=90 * 9*Z-49« 75 R 60 

GO TO 50 R 70 

40 GORD- 18e7*Z-M4<>85 R BO 

50 RETURN R RO 

END R 100- 

FUNCTION GRAD t FR * H « 1 A * 1 8 * N > SIO 

DIMENSION FQtllO) S 20 

IF < N— I A > 20 * 1 0 * 20 S 30 

10 G = (-1 e»frFR( IA + 2 >+4**FR( I A+l >-3**FR( IA> )/(2*#H> S 40 

GO TO 50 5 50 

20 IF <N“IB> 4 0* 30 <40 S 60 

30 G=<3b*FR< IB)- 4**FR( re-1 )+FR( I B-Z > ) ✓ ( 2 • *H ) S 70 

GO TO 50 5 80 

40 ( FR < N+ 1 ) -FR < N~ 1 I )/(2o } 5 90 

50 C,RAD = G 5 1 no 

RETURN 5 llO 

END S 120- 

SUBROUTINE GRAF 1C T 10 

COMMON PH ] U 62 *33 ) *FP ( 1 62* 33 ) T 20 

COMMON /B/ A A 1 1 OO ) * BB ( 1 OO ) T 30 


COMMON /C/ M*MM*MP*N*NN*LL*LP* U IM* IMM* IM3, t I * JU,IK*JK, IZ* tTYP*MXP T 40 
1 *NS,NCY*TE*PI * RAO* TP* TP I ♦ DT »DR^OELTH< OElR «RAiRAS«RA2»RA3< RA4 <>RA5?£ T 50 
2M « QCR I T *C1 *C2*C4*C5*C6*C7* BET « EPS 1L iTCtCL ? CHD * ALP * AlPO * DPH I * XPH l *C T 60 
3Ni SN «EP»C3«RA7<RA09RA9gEL»XM * XS * F5YM • ST • X • Y * YM * XA tYA»AQ,BQ»KP,YR*E T 70 


4M0*£E* I DIM*NFC «NMP* IS* N2 *N3*N4 *N5*M4 «NRN T 80 

COMMON XE/ KCYCLE *FNU* FNLi IBNDLA Y C 1 3 )* A0NDLAY (1 9 ) v XBODY < 1 62 > * YBODY T 90 
1 <162)o BODSLOP (162) * BODCURV ( 82 ) • XNEW (162)* YNEW ( 1 62 ) » CPSURF (162)* CPB T 1 00 
2DLY<82 ) * IGRI O *GR I D*XUPLE <20 ) *XUPARC (20 > *XL0LE<20 ) oXLOAPC <20 > *TI TLO T HO 
3UT ( I 5 ) * CLOUT < 3 « 7 > * SUPOUT < 3 * 7 ) * SLOWOUT (3*7)* CMOUT T 120 

COMPLEX Z T 130 

COMMON /A/ A (40 ) *B(40 > *C <40 ) *D<40 > *E<40 ) *RHCM40 > *RP <40) *R(41 ) *RS <4 T 140 

1 1 ) 'RI <41 ) 'St < 162 ) *C0 U62 )*ZM62 > *FM< 162 ) 'PHIRM62 > T l 50 

COMMON /D/ SF*SIZE*ANG*XMAX* YMAX ♦ XOR * YOR * PGS i Z T 160 

DATA NPLOT * PF * EPF *SCF/Oo — «5*7o0*5o/ T 170 

PE <Q ) =C5S ( AM Ax l <0o*C4-C6*Q)#*C7-l« ) T 180 

C INITIATE PLOT OR GO TO NEXT PAGE! T 100 

IF ( NPLOT o EQ oO) CALL GOPLOT <M«N) T 200 

IF (NPLOToGToO) CALL CPLOT < < 1 3 * * - l 2 * ) * -3 ) T 210 

NPLOT = 1 T 220 

C MOVE THE ORIGIN TO THE LOCATION X=0®*CP=0 0 T 230 

CALL CPLOT < CMPLX (2* oEPF > , -3 ) T 240 

C PLOT CP CURVE AS A FUNCTION OF X T 250 

CPF=lo/PF T 260 

CCP=CPF*CPSURF < 1 ) T 270 

CALL CPLOT (CMPLX <SCF*REAL <Z < 1 >>*CCP)*3) T 280 

DO 1 0 L -2 * MM T 290 

TEMPCP-CPSURF <L ) T 300 

IF < TEMPCP»LT * 2 > TEMPCP=-3*2 T 310 

CCP=CPF*TE MPCP T 320 

10 CALL CPLOT ( CMPLX (SCF*REAL< Z CL > ) *CCP ) *2 > T 330 

C DRAW AND LABEL CP-AXIS T 340 

ANG=90® T 350 

CALL XYAXES ((-*5*0* )»3.,5«»»PF) T 360 

ANG- 0 o T 370 

C COMPUTE AND PLOT CRITICAL SPEED T 380 

YMX-CPF*PE(QCRIT) T 390 

SIZE=e28 T 400 

CALL CSYMBL (CMPLX »5< YMX >* 15* -1 ) T 410 
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SI2E=#14 ' T 420 

CALL CSYMBL ( (-1 .2, 1 .5 ) , lHCi 1) T 430 

CALL CSYMBL M - 1 • 05 , 1 • 4 ) , 1 HP , l ) T 440 

YOP= 1 .5 T 450 

C LABEL THE PLOT T 460 

SF-I. T 470 

SIZE*. I 1 T 480 

CL1 = CLOUT ( IGRID+ 1 iKCYCLE ) T 490 

ENCODE ( 60 ♦ 2 0 ♦ A ) NRN ♦ CL 1 , C MOUT * X T 500 

CALL CSYMBL ( < 0 .0 , - 1 #0 ) * A , 60 ) T 510 

ENCODE ( 60 i 30 i A } I F3N0L AY (13) *NCY , EP » M ,N T 520 

CALL CSYMBL ( < 0 .0 , - 1 *5 ), A , 60 ) T 530 

ENCODE (60. 40, A) T I TLOUT T 540 

CALL C5YMBL < ( -0 • l • 8 .4 > , A • 60 > T 550 

ENCODE (60. 50, A) EM , ALP , ABNDLA Y ( l 8 ) T 560 

CALL CSYMBL ( ( 0 . 0 ,7 .9 ) , A , 60 > T 570 

return T 58n 

c T 89n 

c T 600 

20 FORMAT (6HRUN = ,]3i4X.5HCL = , F5 . 3 , 4X , 5 HCM = . F5* 3 , 4X , 5HCD = ,F7. T 610 

15) T 620 

30 FORMAT (7HIF1X = ,12.4X,6HNCY - , I3,5X,5HEP = , F3 « 2 , 6X , 6HMXN = ,13 T 630 

1 * 1 HX • 1 2 > T 64 0 

AO FORMAT <15A4) T 650 

50 FORMAT (7HMACH = , FA . 3 , 5X , 8HALPH A = , F5 . 2 , 5X , 1 3HRN X 10E-6 = ,F6*2 T 660 

I y T 670 

END T 68n ’ 

SUBROUTINE 1 N I T U 10 

COMMON PH I < I 62 ,33 ) ,FP < I 62, 33 J u 20 

COMMON /B/ AA tl 00 ) , BB ( 1 00 ) U 30 

common /c/ m , mm . mp , n ,nn , ll , lp * 1 ♦ l M , 1 MM , 1 m3 , ] I , jj , 1 < , jk , i z , 1 t yp , mxp u 40 
1 ,NS ,NCY ,TE ,P I , RAD, TP, TP l , D T , DR , DELTM.DFLP , RA , RAS , RA2, RA3 , PA4 ♦ RA 5 • E U 50 
2M.QCRI T , C 1 , C2 ,C4 , C5 , C6.C7.BET , EPS I L ♦ TC.Cl , CHD , ALP ♦ AlPO , DPH I , XPH I , C U 60 

3N,SN,EP,C3,RA7,RAe,RA9,EL,XM»XS,FSYM.ST ,X, Y.YM.XA, YA, AQ.BO.KP.YP, E U 7C 

4M0.EE , ID1 M , NFC ,NMP , 1 S, N2 ,N3 ,N4,N5 ,M4 ,NRN LI 80 

COMPLEX Z U 90 

COMMON /A/ A ( 40 > , B ( 40 ) , C ( 40 > , D ( 4C ) , E ( 40 ) , PHO ( 4 0 > . RP ( 4 0 > • P ( A 1 ) ,R S ( 4 U 100 

II ) ,RM4M tSl l 162 > .CO (1 62 ) , Z < 1 62 > •FM ( 1 62 1 ,PHlR < 1 62 1 U 1 10 

CO ( MP ) = CO I 2 ) U 120 

CO < MM > -CO ( 1 ) U 1 30 

SI (MM >=S M t ) u 140 

51 (MP ) sSl ( 2 1 u 1C;n 

alpo=alp u X6C) 

CN=COS ( ALP+RB ( 1 > 1 u \ 70 

5N = S I N ( ALP+BB U ) ) Lf 180 

CALL PH1RR u 190 

RETURN U 200 

END U 2t0 “ 

SUBROUTINE INTPL (NX , 5 l , F 1 . S , F « FP , EPP , FPPP ) V 10 

GIVEN S,F(S) AND THE FIRST THREE DERIVATIVES AT A SET OF POINTS V 20 

FIND F I < 5 1 ) AT THE NX VALUES OF SI BY EVALUATING THE TAILOR SERIES V 30 

OBTAINED BY USING THE FIRST THREE DERIVATIVES V 40 

DIMENSION SKI). Fid), S(l>. Fd>, FP ( 1 ) , FPP<1), FPPPM ) V ^0 

DATA PT/ • 33333333333333/ v 60 

j=0 , v 70 

DO 30 1=1 , NX v 83 

VAL = 0* V 90 

SS = S MM V 100 

10 J=J + ! V 110 

T T = S ( U ) —SS v 120 

IF (FLOAT { J- 1 )*TT ) 10,30,20 V 130 

20 J=J-l V 140 

5S=S C - 5 (J ) V 150 

VAL=SS# <FP< J )+*5*5S* <FPP< J)+SS*PT*FPPP< J) >) V 160 

30 FI ( I ) sF < J J + VAL V 1 70 

RPTllQN V i8n 

END . V I9 °“ 


71 



APPENDIX 


SUBROUTINE LAGftAN ( Y»N» AN3 ) w 1° 

D1MFNSION X(2l* Y<2) W 20 

SUM=OoO W 

DO 30 I = NN W 40 

PROD-Y < 1 > W 50 

DO 20 JM pN W 60 

A = V( r ) “X ( J ) W 70 

IF (A> 10#20«10 W 80 

1 0 B= (XA-X(J) 1 /A w 90 

PROD -PROD* B w 100 

20 CONT I NUF W 110 

30 SUM-SUM+PROD w 1 ^ ri - 

A NS=SUM W 1 

RETURN w U<0 

END W * 50 ' 

SUBROUTINE MAP x 10 

C SUM UP FOURIER SERIES TO OBTAIN FIRST GUESS X 20 

COMMON PH! ( 162,33 WFP( 162. 33 > X 30 

COMMON /B/ AA ( l OQ ) ,6B< 100 ) x 4° 

COMMON /C/ M *MM*MP»N *NN*LL *LP* l * I M« l MM, [ M3* tl « JJ * IK « JK* l Z • I TYP* MXP X 50 
I » NS ,NCY « TE « P I . R AD , TP * TP I , DT , DR . DEL T H , OELP ,RA,RAS,RA2 , RA3 , PA4 , RA5 , E X 60 
2M.0CPIT *C1 • C2«C4« C5« C6.C7fBET.EPS !L *TC, CL. OHO* ALP* ALPO.DPHJ * XPH I *C X 70 
3N.SN*EP.C3fPA7*RA8,RA9*EL*XMf XS.FSYM.ST *X.YfYM.XA.YA«AO*RO*KP.YR.E X 80 
4MQ.EE* 1DIM.NFC pNMPq JS» N 2 ,N3*N4*N5.M4 oNRN X DO 

COMPLEX z * 100 

COMMON /A/ A (40) ,B(40> ,C(40) *D<40 ) pE(40 ) , RHO ( 4 O ) p RP ( 4 0 ) ,R<41 ) «RS(4 X HO 

I t 1 . R I ( 4 1 ) * S I (1 62 ) iCO ( I 62 ) ♦ Z M 62 > *FM( 1 62 ) « PH I R ( 1 62 > X 120 

DATA TOL/1 oF — 1 2/ x 1 3(1 

00 50 J= l ,N X 1 40 

RN = R I J ) x 1G, ° 

DO 10 KK -2 , NF C x 160 

A (KK )=AA (KK ) *RN x 170 

0 f <K ) - RR < KK ) #PN x i 

IF (RNoLEoTOL) GO TO 20 x 190 

10 RN=R(Jl*RN x 20C 

KK=NFC x 210 

20 DO 40 L = ! ,MM x 220 

S -BB II) x 230 

DO 30 K -2 « KK x 2*0 

LT=t +MODHK-] )* <L~1 > *M> * 250 

30 S = S+A <K )«C0 (LT )+D (K ) *SJ (LT ) x 260 

40 FP(L*J)=S x 270 

50 FP( MPp J }=FP < 2 * J > x 23° 

DO 60 L = hMP x 290 

Z(L)=(0o*0b ) x 300 

60 FP(L.NN)=Oo x 310 

CALL MAPI x 3 20 

RETURN x 330 

END x 340“ 

SUBROUTINE MAPI Y 

COMPLEX TMP g CEXP »TT « ZER * ONE Y 20 

COMMON PH I < 1 62 , 33 > ,FP < 1 62 * 33 ) V 30 

COMMON /B/ A A ([ 00 ) * BB < 100 ) Y 40 

COMMON /C/ M.MMpMP 9 NgNN,LL.LPp I p IM, IMM, [M 3, l I ,UJ, IK.JK, JZ. ITYP pMXP Y 50 
] oNSpNCYpTE.P I *RAD»TP,TPI , DT , DR , DELT H . DELR 9 RA * R AS , R A2 . RA 3 . PA4 , RA5 . E Y 60 
£M 9 OCR I T *C l , C2,C4 9 C5« C6,C7gBET 9 EPS[L ,TC ,CL ,CHD, ALP, AL.POiOPHI pXPH! oC Y 70 
3N, SN ,EP ,C3 9 RA7,RA8,RA9gEL *XM ,XS,FSYM ,ST ,X , Y, YM, XA* YA, AO,BQ *KP , YR.E Y 00 
4M0.EE. IDIMoNFC i NMP g 1 S , N2 »N3 «N<^iN5»M4 * NRN Y 90 

COMMON /E/ KCYCLE Y 1 00 

COMPLEX Z Y 110 

COMMON /A/ A (40 ) .B (40 ) « C (40 ) *D I 40 ) . E (40 ) « RHO (40 ) pRP (40 ) .R ( 4 1 ) .RS ( 4 Y 120 

1 I > *RI (41 )*SI < 162) «C0<162 J«Z< 162) *FM ( 162 >*PHIR t 162) Y 130 

DIMENSION X Y f 2 ) Y 1 40 

COMMON /GX SS ( 31 0 ) .TH ( 310 ) oU (31 0 > . V ( 31 0 ) . W ( 3 10 i . SP ( 31 0 1 Y 150 

EQUIVALENCE <XY<))*TMP) Y 160 

DATA ZERpONE/ (O o . 0 o ) . ( 1 o »0 o )/ Y 170 

C DO MAPPING Y 1 BO 

5N = 2 o / A A ( 1 ) Y 1 90 
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IF (KCYCL^.EQ.t > WRITE (N2.70) 

CALL MAP2 

C FIND SL0PE5 AT EQUALLY SPACED POINTS IN THE CIRCLE PLANE 

SP ( MM >=P] 

CALL 1NTPL < MM ,SP ,FM ,SS» TH , U* V, W ) 

c compute angle of zero lift 

S = #5* (FM < ] ) +FM ( MM ) ) 

DO lO L =2 • M 
10 S - S+F M ( L ) 

BB ( 1 ) =- ( • 5*P I +S/FLOAT ( M ) ) 

S- “BB ( 1 )*RAD 

IF ( KC YCLE • E Q * 1 ) WRITE (N2,5C) S,6Q 
C COMPUTE OS 

DO 20 L = t »MM 
FM(L ) =FM (L ) +P ! 

0 = FP <L, 1 ) 

Z <L > “ G* CEXP t < 0* * 1 « ) *FM (L ) > 

20 FP(Li 1 ) =Q*Q 

FP < MP , I ) =FP < 2 , 1 > 

Z IMP)=Z (2 ) 

TMP-ZER 
5 = 0 * 

0 = 0 * 

B0 = 0 . 

DO 30 L = l ♦ MM 

JT = TMP+ .5*DT* ( Z (L+l > + 7 (L > ) 

Z (L > =TMP 

tmp=tt 

S = AMIN1 (StXY < I) > 

Q = AM I N l (Q * XY (2 ) > 

BQ = AMAX 1 <BQ, XY (2 ) ) 

30 FP <L«NN 1 = 1* 

TC-( Q-BQ 1 /S 
C H D = - 1 • /S 
DO 4 0 L=1 i MM 
40 Z (L) =ONE+CHD*Z (L ) 

IF f KCYCLE *EO« 1 > WRITE IN2,60) TC 
CN = COS ( BB ( 1 > + ALP ) 

SN=S I N( BB < 1 ) +ALP ) 

RETURN 


50 FORMAT I21H0ANGLE OF ZERO LIFT =F 9 • 5 , 7X , 2 2H0U TER MAPPING RADIUS -F 
19.5) 

60 FORMAT < 32H THE THICKNESS TO CHORD RATIO IS,F6.4/1 
70 FORMAT < 1 HO , 5X ♦ 5hDEL S , 8X < 3HRES, 9X ♦ 3HS2L * Sx t 4Hw ( 0 ) ) 

END 

SUBROUTINE M AP2 

COMMON PH I ( 1 62 .33 ) *FP ( 162. 33 ) 

COMMON /B/ A A f 1 00 ) , BR ( 1 00 ) 

COMMON /C/ M»MMtWP«N«NN»LL»LPi I * I M , 1 MM , [ M3 ♦ I I , JJ , I K , JK , I 7. * 1 T YP ♦ MXP 

I , NS • NC Y , TF , P I , R AD * TP , TP I , QT , DR , DELT H , DELR « RA , R AS , R A2 , R A3 * R A A * RA5 « E 

2M, OCR IT, Cl ,C2,C4,C 5 ,C6.C7,BFT,EPSIL,TC,CL,CHD, ALP,ALPO,DPHl , XPH I ,C 
3N,SN,EP*C3,RA7,RA8,RA9,EL,XM,X3,FSYM,STfX,Y,YM«XA,YAiAO,BO,KP»YR«C- 

4M0 , EE , IDIM,NFC ,NMP, 1 S , N2 , N 3 - N4 , N 5 , M4 , NRN 
COMMON /E/ KCYCLE 
COMPLEX Z 

COMMON /A/ A < 40 ) , B (40) , C (40 ) ,D (40 >,£(40) , RHO (40>,RP(40),R(41 ) *RS < 4 

II ) ,R I <4 1 j ,SI < 162 > ,C0 < 1 62 m2 < 162 > ,FM M 62 > ,PHIR ( 162 ) 

□ I MFNS10N SPO ( 1 ) 

COMMON /G/ SS ( 31 O > , TH ( 31 0 > ♦ U ( 31 0 ) ♦ V ( 31 0 1 ♦ »*'( 31 0 > .SP < 31 0 > 

EQUIVALENCE <SPO( 1 > ,Z<B21 ) 

EE'-* 5* ( 1 .-EPS IL ) 

A0= 1 .-KFPS1L 
J M = N/? + 1 

COMPUTE AHS ( l-SIGMA)** ( 1-FPSlL) 

DO 10 L= 1 , M 
FM<L)“I* 


Y 2oO 

Y 210 

Y 220 

Y 230 

Y 240 

Y 250 

Y 260 

Y 270 

Y 2Q0 

Y 290 

Y 30 0 

Y 31 0 

Y 320 

Y 330 

Y 340 

Y 350 

Y 360 

Y 370 

Y 380 

Y 390 

Y 400 

Y 4 10 

Y 420 

Y 430 

Y 440 

Y 450 

Y 460 

Y 470 

Y 400 

Y 490 

Y 500 

Y 510 

Y 520 

Y 530 

Y 54 0 

Y 550 

Y 560 

Y 570 

Y 5B0 

Y 590 

Y 600 

Y 610 

Y 620 

Y 630 

Y 640 
.Y. 65£L.. 

Y 660- 
Z 1 0 
Z 20 
Z 30 
Z 40 
Z 50 
Z 60 
Z 70 
2 BO 
Z 90 
Z 100 
Z 110 
7 120 
Z l 30 
Z 1 40 
7 t 50 
Z 1 60 

7 I 70 
7 1 BO 

7 1 90 
Z 200 
7 210 
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10 PHtR<L» = { 2 *- 2 o»CO(Ul # ^E 
PH1R(MW)=!o 
qo AT MOST NS CYCLES 
DO 120 K=1 «NS 

XR-O o 
YR = 0 o 
X- 0 D 

compute ds and find the mean value of fp at R=.5 

DO 2 0 L * 1 * M 
XR=XR+FP (L * I M ) 

20 5P (L ) =ExP (FP (L ♦ 1 1 )*PH 1 R ( L ) 

XR=XR/FLOAT (M> 

SP (MM ) -SP ( l ) 

COMPUTE ARC LENGTH AT EQUALLY SPACED POINTS IN CIRCLE PLANE 
00 30 L = 1 «M 

AL=BQ+a5*DT-* (SP <L+1 )+SP<D 1 
SP (L ) -BQ 


C 

C 

C 


C 

C 

C 

C 


C 


30 BO- AL 

SP (MM > = B0 


BO IS THE RATIO OF ARC LENGTH BASED ON READ IN COORDINATES TO THE 
ARC LENGTH COMPUTED IN THE CIRCLE PLANE 
IF f K o NE o 1 ) GO TO 50 
DO 40 L=1*MM 
40 SPO < L > =BQ*SP <L ) 

50 DO 60 L = 1 

S E j pp Ay INFINITY TO MEAN VALUE TO ENSURE AnALYTICITY THERE 


60 


FP <L »NN > =XR 

SCALE ARC LENGTH TO TRUE ARC LENGTH 
SP CL )-BQ*SP(L ) 

COMPUTE maximum change in arc length at 
AL = SP < L ) “SPO ( L ) 


EQUALLY spaced points 


X = A M A X 1 <X*A0S(AL ) ) 

UPDATE arc length AT EQUALLY SPACED POINTS 


IN the circle plane 


SPOIL > = SPO CL > + XM*AL 

COMPUTE T(S> since spline fit uses t as independent VARIABLE 
SP (L 1 = ACOS < l o-SN*SPO (L) ) 
normalize X 

X=X/AA < 1 ) 

compute KAPPA at the points CORRESPONDING TO SPa(L) 
call INTPL <M*SP«FMtSS*U»V*W*Zi 
DO 70 L = 2*M 

FM (L ) = SN^FM (L )/Sl N( SP CL ) 1 


70 CONTINUE 

COMPUTE KAPPA*ABS ( 1-SIGMA ) ** t I -EPSIL > AT TH ^ TAIL 
FM ( mm } = ° 5* ( FM ( 2 ) *PH IR C 2 )+FM (M R CM M 


1-2 

C DO POINT RELAXATION 

CALL MAP3 
DO 80 J=1 »NN 
80 FP (MP* J ) =FP ( 2* J > 

DO 90 ls3«MM 
90 CALL MAP3 

DO 1 00 J=1 »N 
100 FPU J1 

IF (KCYCLE o NE o 1 ) GO TO UP 

IF (MODCK-l oKP ).EOoO 1 WRITE (N2*170) Y«,X«,BQ<XR 
C CHECK FOR CONVERGENCE 

110 IF (AMAXI ( YR 9 X ) <*L T o ST > GO TO 130 
120 CONTINUE 
130 NCY-K 

C NOW COMPUTE MAP FUNCTION 

DO 150 L=1 
DO 140 J=2«N 

0 = EXP (FP (L * J >-XR > *( 1 o+RS< J )-2o*R ( J ) *C0 < L ) )**EE 


Z 220 
Z 230 
Z 240 
Z 250 
Z 260 
Z 270 
7 2Pn 
Z 290 
Z 300 
Z 310 
Z 320 
Z 330 
2 340 
7 3^0 
Z 360 
Z 370 
Z 380 
Z 390 
2 400 

Z 410 
Z 4?n 
Z 430 
Z 440 
Z 450 
Z 460 
Z 470 
Z 480 
Z 490 
Z 500 
Z 51 0 
Z 520 
Z 530 
Z 540 
Z 550 
Z 560 
z sin 

Z 580 
Z 590 
Z 600 
Z 610 
Z 620 
Z 630 
Z 640 
Z 650 
Z 660 
7 670 
Z 680 
Z 690 
Z 700 
Z 710 
Z 720 
Z 730 
Z 740 
Z 750 
Z 760 
Z 770 
Z 780 
Z 790 
Z 800 
Z 810 
Z 820 
Z 830 
Z 840 
Z 850 
Z 860 
Z 870 
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140 FPfLiJ^Qa-Q 

FP<L* 1 ) -PHIR <L)*EXP(FP <L* 1 1 -XR) 

FP (L t NN 1 = 1 • 

150 CONTINUE 

DO 160 J - NNN 
FP <MM* J)=FP< 1 * J ) 

160 FP <MP, J )=FP ( 2 * J ) 

C COMPUTE outer mapping RADIUS 

BQ= EXP ( XR ) 

RETURN 

c 

170 FORMAT <2E12*3*2F!2.5 > 

END 

SUBROUTINE M AP3 

C DO POINT RELAXATION- FOR LAPLACES EQUATION IN POLAR COORDINATES 

C ALONG LINE t FROM J=N TO J = l 

COMMON PHI ( 162*33 1 ,FP* 162 i 33 ) 

COMMON /B/ A A ( 1 00 ) * BB (100) 

COMMON /C/ M ,MM* MP,N *NNtLL • LP * I • I M * I MM • I M3* I 1 * JU * IK ♦ JK* I Z * ITY ^’ MX ^ 

1 .NS,NCY,TE.P1 . RAD. TP. TP 1 ,0T . DR , DELT H . DELR « R4 . R AS ,R 42 . RA3 , RA4 * RA5 . E 

2 M* OCR I T « C 1 ♦C2»C4«C5*C6*C7«BET *EPS1L*TC«CL.«CHD*ALP» Al_PO< DPH ! « XPH I «C 

3N.SN.EP»C3.RA7,RA8.RA9.EL.XM.XS.FSYM .ST . X « Y . YM . X A . YA , AO , 8(3 .KP . YR , E 

4 MO , EE • 1 D 1 M * NFC * NMP , 15,N2*N3*N4*N5*M4* NRN t 

COMPLEX Z _ 

COMMON /A/ A (40 ) *B (40 ) *C (40 ) *D (40 ) *E (4C ) iRHO (401«PP(4C)*R<41 ) tRS<4 
11) *RI <41 )*SIU62>*C0<162>*Z<162> *FM(162)*PHIR< 162) 

J = N 

10 T A =RA S *RS < J ) 

XX= <FP< 1 + 1 * J) + FP <1-1 * J)+TA* <FP( I * J+l >+FP( UJ-ll >+RA5*R< J)* (FP (1 , J+ 
1 1 >-FP< 1 « J-l > ) ) / < 2 • + T A + T A ) 

XX=XX-FP( I ♦ J > 
yr-amaxi < ABS (XX ) t YR ) 

FP ( I * J)=FP( 1 »J)+XX*XS 
J=J- 1 

IF ( J.GT* 1 ) GO TO 1 0 
C USE REFLECTION ON THE BOUNDARY 

T A =FP < 1 • 2 )-DR* ( AQ+FM < I >*PHl R ( I ) *2.*tXP (FP ( I ♦ 1 ) ) ) 

xx _ (F p< i + i,| j+fP I 1-1*1 >+RAS* ( FP ( I *2 )4TA) + RA5*<FP( I *2>-TA) )/<2*+2** 
IRAS ) 

XX=XX-FP( 1*1) 

YR-AMAX 1 (ABS(XX) . YR) 

FP < I « 1 )=FP( I * 1 ) +XX*XS 

RETURN 

END 

SUBROUTINE MOV C <Il*Wl*[2«W2) 

J 1 = ( I 0- 1 1 1 *6 
J2= ( 10-12) *6 

no i o k=i *6 

CALL SETB1T ( J 1 * J2 *W1 « W2 > 

J1 =J1+1 
)0 J2= J2+ 1 
RETURN 


z 

880 

z 

890 

z 

900 

z 

910 

z 

920 

z 

930 

z 

94 0 

z 

950 

z 

960 

z 

970 

z 

980 

z 

990 

Z1 ooo- 

AA 

10 

aA 


AA 

30 

AA 

40 

AA 

50 

AA 

60 

AA 

70 

AA 

80 

AA 

90 

AA 

100 

AA 

no 

AA 

120 

AA 

1 30 

AA 

140 

AA 

1 50 

AA 

160 

AA 

170 

AA 

180 

AA 

1 90 

AA 

200 

AA 

210 

A A 

220 

AA 

230 

AA 

240 

AA 

250 

AA 

260 

AA 

270 

AA 

280 

AA 

290 

AA 

300 

A A 

31 0- 

AB 

1 0 

AR 

20 

AB 

30 

AR 

40 

AB 

50 

AB 

60 

AR 

70 

AB 

80 

AR 

90- 


C 

C 


FNO 

SUBROUTINE MURMAN 

SET UP COEFFICIENT ARRAYS FOR THE TRJDI AGONAL SYSTEM USED FOR LINE 
RELAXATION AND COMPUTE THE UPDATED PHI ON THIS LINE 
COMMON PH I C 162*33)* FP < 162*33 ) 

COMMON /B/ AAI100)*8B(100) 

COMMON /C/ M*MM»MP*N*NN*LL.LP* I * IM, 1 MM * I M3* I 1 * JJ « I K * JK * I Z* ITYP*MXP 
* NS * NC Y * TE • P I * RAD * TP * TP ] *DT ♦ DR ♦ DELT H * DELR , RA , RAS , RA2 * P A3 t RA4 ,RAb*E 
?M* OCR IT, Cl *C2*C4 ,C5*C6*C7*BET*EPS!L*TCfCL.CHD*ALP*A L P0*DPHl * XPH I *C 
3N, SN*EP *C3^RA7*RAB* RA9 *EL , XM *XS*FSYM iST * X * Y * YM * X A , YA * AO , RO *«P ♦ YR * E 
»MO,EE< t D l M ♦ NF C « NmP * [ N2 *N3 *N4 * N5*M4 *NRN 
COMPLEX Z 

COMMON /A/ A f 40 ) , B ( 4D ) * C (40 ) , D ( 40 ) * E ( 40 > ♦ RHO ( 40 ) » RP ( 40 > * R ( 4 1 ) ,RS < 

t 1 ) ,R I (4 1 > *S I ( 162 > * CO ( 162 > «Z t 162 ) *FM < l 62 ) *PH IR < I 62 ) 

DO THE BOUNOARY 
FAC=FLOAT t IM-1 MM > 

KK = 0 


l 0 
20 
30 
40 
50 
60 
70 
80 
90 

I no 

I I o 
120 
1 30 
1 40 
150 
1 60 
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i o 


20 


30 


( I M3 . t ) )+RA3*3Q+X 


U=RP ( 1 j*delth-s MM 
CHECK for the tail point 
if ( r o EQ« MM ) GO TO 10 
BQ=U/FP (MM 

AQ=U*BQ 

B0=A0*BQ* (FPU-1 *1 }»FP( I + t»l >> 

CS=C1-C2*AQ 
RP ( 1 ) =A0 
C ( 1 )=-CS*RAS 
c r i > -C ( i > +c 1 1 > 

A ( l > =C S-A 0 

X=CO( I ) * ( C ( 1 >*DR+RA4*(CS+AQ1 ) 

IF ( AQ»L£« QC R I T ) GO TO 20 

FLOW IS SUPERSONIC. BACKWARD DIFFERENCES 
D( t ,=A ( 1 ) * ( R A3*PH I ( I MM, l )-RA9*PHl (]M, 1 )-FP*PHl 
A( 1)=-<C( 1 ) + A ( l ) *RA7 ) 

KK= 1 

GO TO 30 

FLOW SUBCR I T l CAL « CENTRAL DIFFERENCES 

0(!)=AU>«(PHI{! + H1 )+PH ! ( 1-1 *1 ) 1 +RA3#BQ + X 

Ain-Am+A(i»-C(n 

DO NON -BOUNDARY POINTS 

DO 50 J = 2.N 

DU-RP < J ) 

U = DU** ( J >*DELTh-S 1 ( 1 ) 

DV-PHJ ( I *J+ 1 ) -pH l ( I < J-i ) 

V=OV*RS ( j )*DELR-CO< I ) 

US=U*U 

VS=V*V 

BQ=1 */FP( M J 1 

U5=BQ*US 

VS=BQ*VS 

OS=US+VS 

RP ( J ) =GS 

CS~C 1 — C2*QS 

UVS=BO*OS 

C < J 1 =R5 < J )* ( VS-CS ) *RA5 
B( J- l ) ~C ( J ) 

A ( J i sCS-US 

UV=BQ*U*V 

X=RA2#UV*R(J) 

COMPUTE CONTRIBUTION OF RIGHT-HAND SIDE FROM LOW ORDER TERMS 
0< J)=RA5* (CS+US-VS-VS >*R ( J >*DV-DT*UV*DU+RA3*UVS* (R I C J )* U* <FP< I- 
1 )-FP (1 + hJ) )+R4*V* (FPINJ-I ) -^P ( M J+ M ) > 

IF ( QS • LE * OCR l T 1 GO TO 40 

SUPERSONIC FLOW* use backward differencing 
KK=KK+1 
X = ^&F AC 


1 (PHI ( I MM* J+l )-PH[ ( [MM. J-l > ) +EL* ( PH I ( 1M, J- 
A ( J ) ~ — < RA 7*A (J) + 2.K(JM 
OS=C3*X 

B f J- I )-B (J-l ) + QS 
C ( J 1 -C < J ) -OS 
GO TO 50 
40 CONTINUE 

SUBSONIC FLOW. USE CENTRAL DIFFERENCES 


- 1 ) —PH I i IM . J+l > ) ) 


AC 

170 

AC 

l 80 

AC 

190 

AC 

200 

AC 

?] 0 

AC 

220 

AC 

230 

AC 

240 

AC 

250 

AC 

260 

AC 

270 

AC 

280 

AC 

290 

AC 

300 

AC 

310 

AC 

320 

AC. 

330 

AC 

340 

AC 

350 

AC 

360 

AC 

370 

AC 

380 

AC 

390 

AC 

40 0 

AC 

4 10 

AC 

420 

AC 

430 

AC 

440 

AC 

450 

AC 

460 

AC 

470 

AC 

4B0 

AC 

490 

AC 

500 

AC 

51 0 

AC 

520 

AC 

530 

AC 

540 

AC 

550 

AC 

560 

AC 

570 

AC 

580 

i J AC 

590 

AC 

600 

AC 

610 

AC 

620 

AC 

630 

AC 

649 

AC 

650 

AC 

660 

AC 

670 

AC 

680 

AC 

690 

AC 

7r>0 

AC 

7 } 0 

AC 

720 

AC 

730 


50 


D(J>=D(J)+A (Jl* (PHI (I+liJl+PH 
l > —PH I ( I + I . J~1 l-PHI (M.J+D) 
A(J)=2.*(AU)-C(J)) 

CONTINUE 

AO JUST FOR BOUNDARY CONDITION AT INFINITY 
D IN) =0 (N)-C <N)*PHT ( T .NN> 

MXP-MAXO (MXP.KK ) 

SOLVE THE TRIDIAGONAL SYSTEM 
CALL trio 
DO 70 JM . N 

FIND THE LOCATION OF THE MAXIMUM RESIDUAL 
IF ( ABS<£ < J >-PHl ( I . J > > .LE. Yft ) GO TO 60 


(1-1 .J> > + X* (PHI ( I + I .J+L > +PH I ( 1-1 * J-l 


AC 740 
AC 750 
AC 760 
AC 77C 
AC 7B0 
AC 790 
AC 000 
AC 010 
AC 820 
AC 030 
AC 640 
AC 850 
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c 

c 

c 


YR-ABS( E < J ) -PH ! (1 « J > ) 

JK=I 

JK*J 

COMPUTE relaxation factor 
60 X=AM INI ( XS • A MAX 1 ( XM • YM+Y*RP ( J ) ) > 

SAVE OLD VALUE OF PH t 
RP < J ) =PH 1 ( I , J) 

compute NEW phi at each point on the line 
70 PHI « I 1 J 1 *X*E ( J > + < I .-X)*PHI M * J > 

RETURN 

END 

function ordin <a*g*x) 

DIMENSION A < ! ! 0 ) 

J= I NT (X/G ) 

10 R= (X-A INT (X/G)*G)/G 

ORD 1 N= < 1 .-R)*A < J+l ) + R* A ( J+2 ) 

RETURN 

END 

SUBROUTINE PERMUT <AX«NX,JX) 

REOROEPS POINTS WITHIN AN ARRAY 
COMMON PH 1 ( 1 62 4 33 ) * FP ( 1 62 « 33 ) 

COMMON /&/ AA < 1 00 ) «9B ( 100 ) 

COMMON /C/ M * MM * MP »N «NN» LL * LP * I * I M * I MM * I M3 ♦ I t * JU ■» I K * JK * I Z * I T YP * MXP 
1 *NS*NCY*TE,PI , RAO* TP* TP I * OT * DR * OELTH * OELR * * RAS * R A2 »RA3 *RA4 ,RA5*E 

2M.QCRIT *C1 *C2*C4*C5*C6*C7*BET*EP5IL*TC*CL*CHD* AlP* ALPO*DPH l *XPHI *C 

3N*SN*EP*C3,RA7,RA8« RA9*EL * XM *XS * FSYM * ST « X * Y * YM * X A * YA * AQ , BQ «KP * YR * E 
4MO ♦ EE * I O I M * NF C t NMP « I S * N2 • N3 * N4 * N5 * M4 * NRN 
COMPLEX Z 

COMMON /A/ A (40 > *B <40 > * C (40 ) *D<40 ) *E <40 ) *RHO (40 > * RP ( 40 ) , « < 4 1 ) ,RS (4 
11 ) *RI (4 1 ) *SI < 162 > *C0 < 162 1 *Z < 162 ) *FM< 162 ) *PHJ R ( 162 ) 

DIMENSION AX ( i ) 

L - 1 

JY=JX+JX 

NY=2#< <NX-r>/2 ) + t 
NZ-2*(NX/2 ) 

IF <X*EO-2 . ) GO TO 30 
NY=JX* (NY-1 > + l 
NZ=JX*<NZ-1 ) 

DO 10 J = 1 \ NY * JY 
A (L )=AX ( J ) 

10 L -L+ 1 

DO 20 J=JX*NZ«JY 
A (L ) =AX ( J+l ) 

20 L=L+ 1 

GO TO 60 

30 DO 40 J = 1 * NY • 2 
A < J ) = A X < L ) 

40 L=L+JX 


AC 860 
AC 070 
AC 880 
AC B90 
AC 90 0 
AC 91 0 
AC 920 
AC 930 
AC 940 
AC 950 
AC 960- 
AD 1 0 
AD 20 
AD 30 
AD 40 
AD 50 
AD 60 
AD 70- 
AF 10 
AE 20 
AE 30 
AE 40 
AE 50 
AE 60 
AE 70 
AE 80 
AE 90 
AE 1 00 
AE 110 
AE 1 ?0 
AE 1 30 
AF 140 
AF 1 50 
AF I 60 
AE 1 70 
AE 1 80 
AF 1 90 
AE 200 
AE 210 
AF 220 
AE 230 
AF 240 
AE 250 
AF 260 
AF 270 
AE 280 
AE 290 
AF 300 


DO 50 J=2*N7*2 
A ( J 1 = A X <L > 

50 L=L+ JX 
60 L = 1 

DO 70 J=1 • NX 
AX (L ) - A < J > 

70 L-L+JX 
return 


END 

subroutine PHIRR 

COMMON PH I ( 1 62 *33 ) *FP ( 1 62 * 33 ) 

COMMON /B/ AA ( 1 00 ) * BB < 1 00 ) 

COMMON /C/ M * MM ♦ MP * N * NN * LL * LP * I * l M * TMM* IM3* I I *JJ* IK* UK * I Z * 1 TVP i MXP 
1 ,NS*NCY *TE*P 1 * RAD* TP* TP [ ♦ DT « DR * DELTH * DELR * PA « RAS « RA2 * RA3 * RA4 ,RA5 *E 

2M * OCR I T * C 1 ,C2*C4*C5*C6*C7*BET*EPS1L *TC*CL*CHD* ALP*ALPO*DPHl *XPH I *C 
3N*SN*EP*C3*RA7 *RA3*RA9tEL*XM.XS*FSYM*ST , X * Y * YM * X A * Y A . AQ ♦ BO * KP * YR » E 

4M0 * EE * I D I M * NFC * NMP * 1 S * N2 • N3 * N4 * N5 * M4 * NRN 


complex Z 

COMMON /A/ A ( 40 ) ♦ B < 40 ) « C ( 4 0 > * D ( 40 ) * E ( 40 ) * RHO ( 40 ) * RP < 40 1 * R ( 4 l ) 

1 l ) ,R[ ( 4 1 ) ,51 ( 162 > *CO(162 ) ,Z( 162 ) ,FM(162) t PH I R < 16? ) 


«RS (4 


AE 310 
AE 320 
AE 330 
AE 340 
AE 350 
AF 360 
AF 370 
AE 380 
AE 390- 
AF 1 0 
AF 20 
AF 30 
AF 40 
AF 50 
AF 60 
AF 70 
AF QO 
AF 90 
AF 1 00 
AF 1 1 0 
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C ADJUST condition at inf I Nr TV for MACH NUMBER and angle of attack 

BQ = -4 • 

DO 20 L = 1 * MP 

PH rR (L ) -AT AN2 ( -6ET*S I < L > .-CO <L > ) 

10 IF (PHIR (L) oGF*BQ ) GO TO 20 
PHIR (L > =PH I R < L > +TP 
GO TO 10 
20 BQ = PH I R < L ) 

RETURN 

END 

SUBROUTINE PLOT fX.Y.Il 
CALL CALPLT (X»V. 1 > 

RETURN 

END 

SUBROUT INE PLOTN <NPLT ♦ NB 1 N . NL I N « XA X I S . VA X I S . PSYMBL . M AXPL T . M A XPT > 
C GENERATES OUTPUT PLOTS INCLUDED IN THE LISTING 

DIMENSION XAX IS<MAXPT ) ♦ PS YMBL ( M AXPL T ) . YAX I S ( MAXPT *M AXPLT ) 

D I MENS ION PS ( 1 0 > 

DATA BLANK/IH /. 

DATA ZLINE/10H / 

I TEST = 0 

NH I = ( NB I N+9 )/lO 
IF (NPLT*GT*0) GO TO 10 
NPLT=-NPLT 
ITFST=t 
10 CONTINUE 

VMAX=YAX I S ( 1 * 1 ) 

YMIN=YMAX 

DO 20 J=1 .NPLT 

DO 20 1=1 f NR 1 N 

YMAX =AMAX I ( YMAX t YAX IS ( T • J ) > 

20 YM 1N = AM INI ( YMTN . YAX 1 S ( Lj ) > 

YSPAN = YMAX-YMJ N 
A YMX = Y M AX 
HYMX= YMAX 

IE < YM I N-GE* 0 *0 > GO TO 30 

IF ( ( YMAX.GT.OoO ) « ANOo ( YM [N^LT.O.O ) ) GO TO 50 
HYMX = Y M I N 
A YMX = - YM I N 

ymtn=ymax 

YMAX = H YMX 

30 IF < YSPAN*GT « ( A YMX/2 « M GO TO 50 

IF < ABS < YSPAN ) .LE ♦ I *F- 1 5 ) YSPAN-IQd 
HYMX=HYMX/2* 

DO 4 0 J=1 « NPL T 
DO 40 I = | ,N8 I N 

40 YAX[S( 1 9 J)=YAXJS< I . J)-HYMX 
AYMX=AYMX/2 » 

GO TO 30 
50 CONTINUE 

NL1NES=< ( I ABS < NL IN)-] )/50+l 1*50 
DY = AMAX 1 ( YSPAN * A YMX ) /FLOAT < NL J N£S > 

PESTY=YMAX-HYMX 
HYMX = D 1 M ( HYMX . 0.0 > 

XM YH = H YMX 
N I BN = NB 1 N 

NGROS= ( NB I N- t )/100 
I GROS = NGROS 
HYMX=rXMYH 
PRINT 170 

IE (IGROS.EO.O) GO TO 60 
NBIN=1 00 
GO TO 70 

60 NB1 N = N I BN— NGROS+1 00 
70 NH I = (NBlN+9 ) / \ 0 

I COR = 1 00* ( NGROS- I GROS ) 

00 80 J=1 »NPLT 
DO 80 1=1 ,NR IN 
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80 YAXISU •J)=YAXI5< 1 + !C0R«J) 

DO 90 [ “1 *NB1N 
90 XAXI S< Jl=XAXtS ( 1 + ICOR) 

lflg=o 

DO t 40 K= 1 * NL I NES 

IF < (HYMX#GT*0.0 ) .OR, (LFLG*NE.O 1 ) GO TO 110 

LFLG - 1 

DO I 00 1=1 . NH I 

1 OO PS < I ) - ZL I NE 

PRINT t50. <PS ( I > . I - l • NH1 ) 
tin no 120 1 = 1 , NH! 

120 PS < ! 1 =BLANK 

DO 130 J= 1 . NPLT 
DO 130 I = 1 * NBIN 
Y I =YAXI S < I * J ) 

IF ( (HYMX*LT*Y1 )• OR • f ( HYMX- Y 1 > • GT • DY ) ) GO TO 130 
1 I = < 1 + 9)/ 10 
I2=f - ( I 1-1 >* 1 0 

CALL MOVC < 1 *PSYMBL ( J ) * 1 2*PS < I 1 ) > 

130 CONTINUE 

CONT=REOUC (HYMX+RESTY ) 

IF < I TEST ♦ EO ■ 1 > CONT=-CONT 
PRINT 160, CONTt (PS< 1 > « 1=1 *NHI > 

PRINT 180 
140 hymx=hymx-oy 
RETURN 
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150 FORMAT ( 1 H+* 1 9X * 1 OA t 0 ) 

160 FORMAT ( 1 H+ *F12«4*7X* 1 0 A 1 0 ) 

170 FORMAT < 1HI ) 

100 FORMAT UH > 

END 

FUNCTION REDUC <X> 

RE0UC=X 

RETURN 

END 

SUBROUTINE REFINE 
HALVES THE MESH SIZE 
COMMON PH Ml 62 ,33) iFP ( 162* 33 ) j 
COMMON /B/ AA<100>* BB (1001 ; 

COMMON /C/ M » MM • MP , N » NN * LL iLP» ! I * 1 M, I MM * I M3* I I * J J ♦ 1 K « JK , I Z * 1 T YP * MXP 

I *NS,NCY*TE*PI .RAD* TP* TP I , DT . DR . DElT H • DELR * RA , PAS., R A2 i RA3 * RA4 *RA5 * E 

2M.I3CRIT.C1 ,C2.C4.C5.C6.C7.BET.EPSIU.TC.CL.CHD.ALP.AtPO.DPHl . XPH I ,C 

3N.SN.EP.C3.RA7.RA8,RA9,El_«XM .XS.FSYM.ST.X. Y. YM.XA, YA. AQ, BO.KP. YR,E 

4M0 , EE • I DIM* NFC ,NMP, I S*N2 ,N3*N4*N5*M4*NRN 

C6mpLe^! z 

COMMON /A/ A (40 ) . 0 (40 ) , C ( 40 ) , D t 40 1 . E < AO ) * RHO < 40 ) * RP ( 40 > * R t A 1 )*RS(4 

II ) ,R I (41 ) ,S I ( 162 ) *CO ( 162 > * Z ( 162 1 *FM ( 162 ) .PHI R U62 ) 

X = 2 * 

M = M+M 
MM=M+1 
N = N+N 
NN=N+ l 
11=11+11-1 
JJ=JJ+JJ-1 

call both 

RETURN 

END 

SUBROUTINE RESTRT 

COMMON PHI ( 162 .33 ) *FP(162,33 ) 

COMMON /B/ AA(lOO),6Br 100) 

COMMON / C / M , MM * MP , N ,NN*LL ♦ LP • ! ♦ I M * I MM * 1 M3 * I 1 ♦ JJ * I K ♦ JK * 12. I TYP * MXP 
1 ,NS*NCY*TE*Pt .RAD* TP, TP I , DT . DR * DELTH , DELR * R A ,R AS ,R A2 , RA3 * RA4 * RA5 , E 

2M*QCRIT*C1*C2*C4*C5*C6*C7,BET*EPSIL*TC,CL*CHD,ALP, ALPO.DPHI *XPHI*C 

3N*SN*EP *C3*RA7 *RA8,RA9 *EL* XM . XS * FSYM * ST * X , Y * YM . X A * Y A * AQ * BQ * KP * YR » E 
4M0.EE* I DIM* NFC , NMP , ! S * N2 * N3 * N4 * N5 * M4 . NRN 
COMPLEX Z „ 

COMMON /A/ A ( 40 ) .B(40 ) *C (40 ) .DUO ) * E < 40 ) * RHO (40>*RP(40),R(4J ).RS<4 
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1 1 ) ,R 1 ( 4 1 ) , 5 I (162 ) * CO f 1 62 ) .Z ( 162 > *FM ( 1 62 ) * PHIR ( 162 ) 

COMMON /E/ KCYCLE*DUMY( i 836 > * INVDI V 
SET UP CONSTANTS 

T p = pi + pi 

TPT = 1 ./TP 
RAD= ! 80 e/P I 

IF (KCYCLEoEOc 1 ) 1TYP=1 

MM=M+1 

MP=MM+ 1 

LL=MP/2 

LP-LL+2 

NN=N+ 1 

DR=- 1 o/FLOAT (N ) 

DT = T P/FLO A T ( M ) 

DELR=.5/DR 

DELT H= o 5/OT 

RA=DT/DR 

RA5=RA*RA 

RA2=-«5*RA 

RA3s-o 1 25/DEL T H 

RA4=o25/(OEL THttDELTH ) 

RA5=-RA* (RA3+RA3 ) 

DO 10 K=1 iN 
R ( K ) - 1 o +DR*FLOA T ( K — ] ) 

RS (< ) =R (K >*R (K ) 

R I (K ) = 1 a/R (K ) 

10 CONTINUE 
R < NN }=0o 
RS (NN ) -Oo 
DO 20 L = 1 • MP 
TH=FLOAT (L-l ) *DT 
CO <L ) - COS ( TH > 

20 S J (L )=S IN( TH) 

CALL MAP 

DO NOT REINITIALIZE PHI ON CYCLES OTHER THAN THE FIRST* UNLESS 
THE 1NVISCID SOLUTION DIVERGED 
IF (KCYCLEoEQ.l > GO TO 30 
IF ( INVDI VpEQo 1 > GO TO 30 
RETURN 
30 BQ=-4» 

DPH! -P] *SN/ (CHD*BET ) 

CL=TP*SN/BET 
DO 70 L = 1 «M 
X-CO ( L ) 

CO(L >=X*CN-S I (L>*SN 
SI (L) = SI(L >*CN+X*SN 
PHIR (L > -ATAN2 <-S I (L ) *BET * -CO (L ) ) 

40 IF (PH]R(L) oGEbBQ) GO TO 50 
PH IP <L ) =PH [R(L)+TP 
GO TO 40 
50 BO=PH I R (L > 

00 60 J=1 « NN 

60 PH I <L » J > =R ( J > *CO ( L ) +OPH 1 *PH ] R (L ) *TPI 
70 CONTINUE 

PHIR (MM )=PH IPd ) +TP 
PHIR (MP > =PH I R ( 2 ) + TP 
DO 80 J=U NN 
PHI ( MM 4 J ) =PH I ( 1 * J ) +DPH I 
00 PHI (MP, J)=PHI (2iJ)+DPH| 

CALL INIT 

RETURN 

END 

FUNCTION RLORD (Z } 

RL ORD= . 4*Z 
IF ( Z- ♦ 1 8 ) 40.10*10 
10 IF (7-1 • 1 ) 20.30.30 
20 RLORD”. 095- .055* (2.*Z- 1 0 ) **2 
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GO TO 40 

30 RLOPD= * 01 6*EXP ( — 1 0.* (Z-l • t ) ) 

40 RETURN 
END 

SUBROUTINE SETCP 

INTERPOLATES FOR CP AT INPUT STATIONS TO B. L* CALCULATION 

COMMON /C/ M«MM(MP,N,NNJ»LL»LPi I i IMUMMUM3, 1 I iJJ* IZ J T YP . MXP 

I . NS . NCY iTEiP l «RADi TP»TP! « OT « OR ■ DELT H .DELR ♦ R A , RAS ♦ R A2 . RA 3 , R A4 , RA5 . E 
2M ♦ OCR I T ,C 1 . C2.C4 , C5 . C6. C7 * BE T * EPS [ L ♦ TC . CL . CHO * ALP « ALPO.DPHI *XPH I .C 

3N.SN.EP.C3»RA7.RAB,RA9,EL.XM.XS.FSYM.ST.X.Y.YM.XA. VA,AQ*8Q«KP*YR.E 

4M0 ♦ EE . I 0 IM.NFC .NMP, I S * N2 .N3.N4.N5.M4 « NRN 
COMMON /E/ K CYCLE i c NU * FNL . I BNDL A Y ( 1 3 > * ABNDL A Y ( 1 9 > . XBODY (162). YBOOY 
j ( i ) . BODSLOP ( 162 } • BOOCURV ( 82 J * XNEW< I 62 ) « YNEW U62> » CPSURF f 1 62 > * CPB 
2DL Y ( 82 ) * IGR1 D^GR I D« XUPLE (20 > .XUPARC (20 ) . XLOLE ( 20 ) . XLOARC (2.0) *T] TUO 
3UT ( 1 5 ) . CLOUT ( 3*7 ) . SUPOUT ( 3*7 ) < SLOWOUT (3.7) .CMOUt .CPUP (05 ) .CPLO ( B5 ) 
4 . XTEMUP ( 85 ) * XTEMLO< 65 ) . DEL6LX (162) »KOUNT .KOUNTUP 
COMPLEX Z 

COMMON /A/ A(40).B(4D).C(40) .0(40). E( 40) . RHO <40>*RP(40).R<41 ).RS(4 

II ) • R I (41 ) ,S1 ( 1 62 ) . CO ( 1 62 ) * Z ( 1 62 ) .FM ( 1 62 > . PH IP < 1 62 > 

MNEG=M/2~5 

MP0S=M/2+5 

KST0P=M+1 

REORDER CP DISTRIBUTION 
CPN0S1 -CPSURF (MNEG ) 

KOUNT 1 =MNEG 
DO 10 L=MNEG.MPOS 

IF (CPSURF (L ) .LE.CPN0S1 > GO TO 10 
CPN0S1 = CPSURF (L ) 

KOUNT 1 = L 
10 CONTINUE 

XN0S2=PEAL (Z(MNEG) ) 

KOUNT2-MNEG 

00 20 L=MNEG.MPOS 

IF (REAL ( Z (L ) > *GE.XN0S2 > GO TO 20 
XNOS2 = R£AL (Z (L ) ) 

KOUNT 2 = L 
20 CONTINUE 

IF (KOUNT 1 .GT.K0UNT2 ) GO TO 30 
KOUNT-KOUNT l 
K0UNTUP=M-K0UNT2+2 
KSTART=K0UNT2 

GO TO 40 i 

30 K0UNT=K0UNT2 

KOUNTUP = M— KOUNT 1 + 2 
KSTART^KOUNTl 
40 DO 50 L - i .KOUNT 
J=K0UNT-L+1 
XTEMLO(L)=REAL(Z( J) ) 

50 CPLO(L)=CPSURF( J) 

DO 60 L=KSTART.KSTOP 

J-L-KSTART+l 

XTEMUP ( J ) =RE AL ( Z ( L ) ) 

60 CPUP (J ) -CPSURF (L ) 

KMAXCYC= I BNDL AY ( 12 ) 

RETURN IF KCYCLE IS A MAXIMUM 
IF ( KCYCLE • EQ.KMAXCYC ) GO TO 180 

DEFINE ADDITIONAL INPUTS TO BOUNDARY LAYER ROUTINE 
JUP= I 

70 IF <CPUPCJUP).LT.t.O.AND.XTEMUP<JUP>.GT.XUPLE< 1 ) ) 00 TO 80 

JUP= JUP+ l 
GO TO 70 

80 CALL D 1 SCOT ( X TEMUP ( JUP ) . XTEMUP ( JUP ) .XUPLE . XUPARC • XUPARC .-010*20% 

1 *ARC1 ) 

RNLOS= ABNDLAY ( 18 ) * 1 0***6 

AMNTM1=0. 292/SORT (RNLDS/ARC 1 *SQRT < 1 .O-CPUPI JUP) ) ) 

JLO= 1 

90 IF ( CPLO ( JLO ) *LT • 1 * O * AND *X TEMLO ( JLO } *GT . XLOLE ( 1 ) ) GO TO 100 
JL0=JL0+1 
GO TO 90 
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too CALL DISCOT ( XTEMUO ( JLO ) .XTEMLO C JLO > . XLOLE , XLO ARC , XLOARC ,-010.20.0 AM 660 

IUU L«L1- AM 67f) 

1 . ARC2 ) 

AMNTM2=0.292/SQRT(RNLDS/ARC2*SQRT<1 .O-CPLO(JLO) ) ) AM 660 

ABNOLAY<ll=<AMNTMt+AMNTM2>/2.0 AM 690 

ABN0LAY(4)=RNLDS»ABNDLAY(1 ) AM 700 

NPRES= IBN0LAY(5> ~LV1 

XTEML 2 ,= n‘n A « 7A 0 

XTEMUP( 1 >=o„o 

INTERPOLATE for CP AT required x/c am 7j0 

DO 1 1 0 J=1.NPRES 7 ^ 

XPR£S=ABNDLAY(3>+FLOAT( J-l >»ABNDLAY<2> am 770 

C AI 1 CISCOT (XP^£S< xPRES* XTEMLO* CPLO p CPl_0 o “0 l 0 *KOUNT CPBDLY ( J ) ) AM 780 

JPL == J+NPRES AW 790 

CALL O 1 SCOT <XPRES*XPRE5*XTEMUP<CPUP*CPUP<>-OIO * KOUNTUP ♦ 0 * CPBDLY ( JP AM 8Q0 

A M 8 ] 0 

il n 


I 1 0 CONTINUE 

LIMIT CP AT NOSE SO B* L* ROUTINE DOES NOT BLOW UP 
IF ( CPBDLY ( \ ) oLE o O o S ) GO TO 120 
CPBDLY t l ) =0 *Q 

120 IF (CPBDLY ( NPRES+1 )• LE»0 «»8 ) GO TO I 30 
CPBDLY (NPRES+1 )=Oo0 
13C IF ( NPRES- I 1 3®LE * 0 ) GO TO 180 

adjust aft surface pressure coefficients for boundary layer input 

NMA X = NPRES/2 + 1 
CPMAXLO=CPBDLY (NMAX-1 ) 

JMAX = NNlAX-l 

DO 1 A 0 J=NMAX «NPRES 

IF < CPBDLY ( J ) aLT « CPMAXLO ) GO TO 140 
CPMA XLO-CPBDLYt J) 

JMAX = J 

140 CONTINUE 

DO ISO J=JMAX.NPRES 
150 CPBDLY ( J > = CPMAXLO 

IF (NPRES-I 1 3*LT.2> GO TO 170 
XI =ABNOLAY < 3 J+FLOAT < I 1 3—2 >*ABNDLAy ( 2 ) 

X2= ABNDL A Y ( 3 ) +FLOAT ( 113-1 )*A6NDlAy(2) 

X3 = ABNDLAY< 3 l+FLOAT < NPRES- t ) *ABNDLAY<2 ) 

Y 1 =CPSDLY (NPRES+ I 13-1 > 

Y2= CPBDLY (NPRES+ 113) 

Y3=CPBDLY CNPRES ) 

AP ARAB = ( ( Y2-Y t )* C X3-X1 >- 1 Y3-Y1 >* (X2-XI ) 1/ ( X2-X1 ) / < X3-XI )/ (X2-X3 1 
BPARAB=<Y3-Y1-APARAB#(X3*X3-X1*X1 ) )/CX3-Xl ) 

CPARAB-Yl —BP ARAB* Xt~ APARAB*X I *X1 
1 13PI= I 13+1 
DO 160 J=n 3PJ «npres 
JPL= J+NPRES 

XPRES = ABNDLA Y ( 3 1 +FL0 AT ( J- 1 ) * ABNDL AY (2 ) 

16C CPBDLY < JPL ) = APARA6*XPRES*XPRES+BPARAB*XPRES+CPARA6 
GO TO ISO 

I 70 CPBDLY < NPRES + NPRFIS ) =CPBDLY ( NPPES ) 

180 RETURN 
END 

SUBROUTINE 5 I CO 

COMMON PH IC1 62*33 > *FP< 162*33 > 

COMMON /B/ A A ( 1 00 ) * BB ( 1 00 ) 

C OMMON /C/ M « MM * MP * N ♦ NN * LL iLP» I < I M ♦ I MM % 1 M3 « l I » J J * I K ♦ JK *12* IT YP » MXP 
1 <NS*NCY ?TE*P I *RAD « TP • TP I ,OT»DW, DE LT H • DELR • RA ♦RAS*RA2*RA3*RA4*RA5,E 


AM 8 J 0 
AM 320 


AMO ♦ EE ' I DIM* NFC *NMP ^ l S * N2 iN3^ N4 * N5 * M4 « NRN 
COMPLEX Z 

COMMON /A/ A ( 40 ) « 0 < 40 ) « C ( AO ) *D < 40 ) * E ( 40 ) • RHO < AO ) * R 
11 > *R1 <4 1 > *5 I U 62 ) * CO (1 62 ) *Z ( 162 ) *FM ( 1 62 1 • PH [R ( 1 62 ) 
COMPUTE COS < THETA+ALPO 1 * S I N < THET A + ALPO ) 

CN-COS ( ALP-ALPO > 

SN=S J N< ALP-ALPO ) 

CALL COS! 

RETURN 

END 


RHO ( 40 ) * RP ( AO ) • P I A 1 ) »RS < A 


AM 

340 

AM 

850 

AM 

860 

AM 

070 

AM 

8B0 

AM 

890 

AM 

900 

AM 

910 

AM 

920 

AM 

9,30 

AM 

940 

AM 

950 

AM 

960 

AM 

970 

AM 

980 

AM 

990 

AMI 

000 

AMI 

010 

AMI 

020 

AM I 

030 

AMI 

040 

AMI 

050 

AMI 

060 

AM 1 

070 

AMI 

080 

AM 1 

090 

AM ] 

1 1 00 

AM ] 

1 1 1 6 

AMI 

1 120 

AM 1 

1 130 

AMI 

I 140 

AM 3 

l 150 

AMI 

L t 60 

AM 1 

l 1 70 

AM 

I 1 80- 

AN 

1 0 

AN 

20 

AN 

30 

an 

40 

an 

50 

AN 

60 

an 

70 

AN 

80 

AN 

90 

AN 

1 oo 

AN 

1 1 0 

AN 

120 

An 

1 30 

AN 

1 40 

AN 

150 

AN 

1 60 

AN 

1 70 


82 



APPENDIX 


FUNCTION SIMPSN <FR.lA*N*H) 

D I MFNS ION FR(HO) 

<N- [ A ) /2 

IF (N-IA-2*J} 30 * 1 0 * 30 

10 S=0. 

N 1 =N- l 

DO 20 I = I A * N 1 *2 

20 S = S + H* (FR< I )+4.*FR( 1+1 )+FR( 1+2 } >/3. 

GO TO 50 

30 S = HM5«*FR( I A ) +0. *FR U A+l )-FR( I A+2 1 ) / 1 2 • 

I A 1 = I A+ 1 
N 1 =N- 1 

DO 40 I=IAhNl*2 

AO S = S+H*(FR< 1 ) +4 « #FR ( I + I )+FR< 1+2) >/3. 

50 S I MPSN - S 
RETURN 
END 

FUNCT I ON SLOG CZ > 

SL OG = 1 9 * * ( 1 »-EXP ( —2 ■ 083*2 ) ) +7B ■ / ( I . +655 ♦ * ( A5S < 2- • 76 >) **3> 

RETURN 

END 

FUNCTION SLOPE <A*G*N«X) 

D I MENS ION A < 1 1 0 ) 

J= 1 NT (X/G > 

10 R= ( X-A I NT { X/G ) *G > /G 

SLOPE = { 1 *-R ) *GRAD ( A * G* 1 iN, J+ 1 )+R*GRAD < A « G * 1 < N* J + 2 ) 

RETURN 

END 

SUBROUTINE SOLVE (OiFiDET*A) 

DIMENSION A < 2 * 3 ) 

DET = A< 1*1 )*A(2*2)-A<2*1 )*4 t 1 *2) 

IF (DET) 10*20*10 

10 D- <A ( 1 *2 )*A C2*3)-A (2 *2 ) *A ( t *3 > 1 /DET 
E = ( A ( 1 • 3 ) * A (2*1 >-A(2*3)*ACl*l ) ) /DET 
20 CONTINUE 
RETURN 
END 

SUBROUTINE SPLlF CN « S * F * FP • FPP « FPPP ♦ KM * VM * KN • VN ) 

GIVEN S AND F AT N CORRESPOND I NG POINTS* FIT A CUBIC SPLINE 
DIMENSION S ( l ) * F ( 1 ) * FP( 1) , FPP(l)* FPPP ( 1 > 

K - 1 
M = 1 
I =M 
J= MFK 

DS = S ( J ) -S ( I > 

D = DS 

IF ( DS .EQ»0* ) GO TO 110 
OF = < F < J )-F ( I ) ) /DS 
IF (KM-2) 1 O * 20 « 30 

ID U= *5 

Vs3*+ ( DF-VM )/DS 
GO TO 50 
20 U = 0 • 

V = VM 

GO TO 50 
30 U=-l « 

V = -DS* VM 
GO TO 50 

40 I = J 
J- J+K 

DS = S ( J ) — S ( I ) 

IF <D*DS.LE*0.) go TO no 
DF= (F(O)-FC ! ) 1 /DS 
B=1 •/ f D5+DS+U) 

U=B*nS 

V-B* <6**0F~V > 

50 FP < I ) -U 

ppp( J >=v 
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290 
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U= (?o-U >*DS 
V-6^DF+OS#V 
IF (JoNEoN) GO TO 40 
IF (KN-2) 60 4 70 « 80 

60 V=(6o*VN-V)/U 
GO TO 90 
70 V - VN 

GO TO 90 

80 v= (pS^VN+FPP < I ) >/ < 1 0 +FP < 1 ) > 

90 

D-DS 

2 00 D5=S ( j )-S( I ) 

U=FPP< i )-FP< 1 ) *V 
FPPP < I > MV-UJ/DS 
FPP< 1 >=U 

FP( I ) - ( F t J ) — F < I ) )/D5-DS*(V+U+U >/6o 

v*u 

J - 1 
l-I-K 

IF <JcNEt>M> GO TO 100 
FPPP ( n j r FPPP ( N- I ) 

FPP ( N ) =B 

FP (N >-DF+D* (FPP (N-l )+B+B>/6* 
return 
1 I 0 STOP 
END 

SUBROUTINE SWEEP 

C SWEEP THROUGH THE GRID ONE TIME 

COMMON PH I (I 62 ♦ 33 ) 4 FP ( I 62 * 33 > 

COMMON /B/ A4 U 00 ) * BB (100) 

COMMON /C/ «NN , LL , LP * I * IMi 1 MM* I M3 * I I 4 J J • I K * JK , \Z* 1TYP*MXP 

1 4NS*NCY<.TE»Pl *RAO.TP«TPI ,0T « DR»DELTH,DELR^A«RA54RA2»RA3«RA^ » RA 5 < E 
2M * OCR I T • C 1 , C2, C44 C5 * C6 4 C7 4 BET, EPS r L oTC 4 CL* CHD, ALP 4 ALPO^DPHI , XPH I ,C 
3N 4 SN 4 EP * C 3 4 R A 7 * RA B 4 R A9 4 EL • XM , X-S , F SYM 4 S T 0 X * Y 4 YM 4 X A • YA 4 AQ , BO « KP • YR ♦ E 
4M0 4 EE 4 I0IM«NFC»NMP. I S ♦ N2 , N3 4 N4 4 N5 4 M4 4 NRN 
COMPLEX Z 

COMMON /A/ A(4C 1,8(40) «C (AO ) < D ( AO ) ♦£ (AO 5 * RHO <40}*RP(40)oR(41 ] «RS ( 4 
1 t > «Q| (4t j ,Sl ( 1 62 ) ,C0 (162 > .2 ( 1 62 > ,FM ( 162 ) .PHI* <162 ) 

YR = Oo 
1 K = LL 
JK = 1 

DO 10 J-l *N 
10 RP ( J ) = PH I (LL-l , J ) 

MXP=0 

C SWEEP THROUGH THE GRID FROM NOSE TO TAIL ON UPPER SURFACE 

DO 30 1 =LL » M 
IM- ] -1 
1 MHc 1-2 
J M3= I -3 
DO 20 J = 1 4 N 

20 RP ( J > =PH I { I + 1 * J >-RP ( J ) 

30 CALL MURMAN 
AG - O o 
BQ-Oa 
I =MM 

DO 40 J = I «N 

40 RP{ J )-PHI (MP, J ) -RP ( J ) 

CALL MURMAN 

C UPDATE PHI AT THE TA TL FROM UPPER SURFACE 

DO 50 J = hN 

50 PHI ( 1 4 J ) =PH I (MM 4 J ) -DPH 1 

C SWEEP THROUGH THE GRID FROM NOSE TO TAIL ON LOWER SURFACE 

DO 60 J - 1 4 N 
60 RP ( J ) =PH] (LL.J) 

00 80 J=3,LL 
I =LP-J 
J M= 1 + 1 


AS 320 
AS 330 
AS 340 
AS 350 
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AS 370 
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AS 390 
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AS 
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AS 440 


AS 
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AS 

460 

AS 
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AS 

480 

AS 
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AS 
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AS 
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AS 
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AS 
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AS 
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AS 
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AS 
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AT 

290 

AT 

300 

AT 

31 0 
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c 


t MM= 1+2 
[ M3 = 1+3 
DO 70 L=liN 

70 RP (L >-RP < L >-PHl < I -1 *L > 

ao call murman 

ADJUST CIRCULATION TO SATISFY THE KUTT A CONDITION 
IF ( xPH I • EQ • 0 • ) GO TO 90 

YA=XPH1 * ( (PHI (M • 1 > —PH I < MP, I ) )*DELTH+S !(1 )) 

90 DPH I =DPH 1 + Y A 
YA=YA+TP1 
DO 100 LM * MP 

PHI (L * NN ) =OPH I *TP1 *PH I R <L ) 

DO 100 J= L * N 

IOC PHrCL«J)=PHI(L«J )+YA*PHIR(L 1 
DO 1 1 0 J=liN 

110 PHI (MP* J)=PHt <2 t Jl+OPHI 
RETURN 
END 

SUBROUTINE SYMBOL (X* Y tH*N* ANGLE ♦ NCH AR > 

IF (NCHAR*GT.Ol GO TO 20 
IF ( N* EQ • 26 1 GO TO 10 
I F ( N • EQ • 20 ) GO TO 1 O 
1 F (N.EQ* 17) GO TO 10 
GO TO 20 

10 IF (N*EO*26) N=13 
S 1 NA -S 1 N (ANGLE ) 

COSA^COS (ANGLE ) 

X=X+*5*H* (SINA-COSA ) 

Y= y-*5#H* < S INA + COSA ) 

20 CONTINUE 

call notate <x*y*h,n,angle*nchar 3 

RETURN 

END 

SUBROUTINE TANCAL ( G * A * V * J * RM * D * U * T * T A* TB * W ) 

D I MENS ! ON A ( I 5 ) « VU 10)» U ( 1 1 0 > • T(110)* TAU 10 )♦ T0 ( 1 I O > * W(110) 

G = 0 « 

AA J = FLOAT < J) *A < 1 ) /A ( 6 > 

D = A (8 ) »RM+GORD f A A J ) 

C - W ( J ) * T (J) 

Pl=(V(J)+(A(15)-*5l*C+D)/U(J> 

TEMP=(0+(A< 1 5 > + *5 1 *C >**2+2.*<A(B>*T ( J)+D*C> 

IF ( TEMP • GE • 0 • ) GO TO 10 
T A < J > = 1 0 ■ ** 7 1 * 

TB ( J > - T A < J ) 

GO TO 20 

10 P2=SQRT (TEMP )/U( J ) 

TA ( J ) =P1 +P2 
T8 ( J )=P1-P2 
20 RETURN 
ENO 

SUBROUTINE TRID 

SOLVE N DIMENSIONAL TR I D l AGONAL SYSTEM OF EQUATIONS 
COMMON PH 1 ( 1 62 *33 ) *FP( 162*33) 

COMMON /B/ AA ( 1 00 ) * RB ( 1 00 ) 

COMMON /C / M#MM*MP*N* NN * LL * LP * 1 * I M« I MM * 1 M 3 * I l * JJ * I K ♦ JK * I Z * I T YP * MXP 
) * NS * NC Y * TE * P I • RAD * TP ♦ TP I * DT • DR • DELTH *QELR * RA * RAS * R A2 * P A3 * R A4 , RA 5 * E 
2M « OCR I T * C 1 *C2*C4*C5*C6*C7*BFT * EPS I L * TC « CL * CHD * ALP * ALPO * DPH I • XPH I ,C 
3N * SN *EP*C3*RA7* RA8 * R A9 «EL*XM*XS« FSYM *ST * X * Y ♦ YM *XA*YA*AQ% BQ »KP *YR* E 
4M0*EE* ID TM*NFC * NMP * I S * N2 , N3 * N4 * N5 * M4 *NRN 
COMPLEX Z 

COMMON /A/ A (40 > * B ( 4 0 ) *C(40)*D(4C > * F ( 40 ) , RHO (40 ) * RP ( 40 ) , R ( 4 1 > iRS <4 
1 1 ) *R l (41 ) *S I ( 1 62 > *C0 ( 16? ) *Z ( 162 ) *FM< 162 > *PH I R < 162 ) 

XX= 1 ./A ( i ) 

Efl 1 =XX*D ( 1 ) 

DO elimination 

DO \0 J = 2 * N 
C ( J-t )»C( J-l )*XX 
xx=l «/( A ( J)-B < J-l >*C(J-1 n 
10 E< J)=«D(J)-B(J-1 )*E( j-l > )*XX 


AT 420 
AT 430 
AT 440 
AT 450 
AT 460 
AT 470 
AT 400 
AT 490 
AT 500 
AT 510 
AT 520 
AT 530 
AT 540 
AT 550 
AT 560 
AT 570 
AT 5B0 
AT 590“ 
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DO BACK SUBSTITUTION 
DO 20 J = 2 « N 
L =NN— J 

20 E(L ) =E(L) -C ( U ) *E t L + 1 ) 

RETURN 
END 

SUBROUTINE UNS < I C * 1 A * I DX * I DZ * I MS ) 

IF (1C) 10*10,20 

10 I MS- 1 
NC = — I c 
GO TO 30 
20 I MS=0 
NC=!C 

30 IE CNC-100) 40 * 50 «50 
40 I A =0 

GO TO 60 
50 I A = 1 

NC=NC- 1 00 
60 I DX = NC/' 1 0 

I 02 -NC— I DX* 1 0 
RETURN 
END 

SUBROUTINE XYAXES ( X « BOT « T OP • SCF ) 

X IS the location of the origin on the AXIS 

BOT IS THE LENGTH OF THE AXIS TO . THE LEFT OF THE ORIGIN 
TOP IS THE LENGTH TO THE RIGHT OF THE ORIGIN 
COMPLEX ZB * ZT » H * COR 

COMMON /D/ SF*S1ZE* AnGiXMAXi YM AX • XOR * YOR « PGS I Z 
D I MENS! ON X<2 ) * Y (2 ) 

ango=ang 

SFO=SF 
S I ZO = S I ZE 
Y ( 1) =XOR 
Y (21 = Y OR 
ANG- 0 e 
SF= 1 o 
S12F=« 1 4 
XOR=X( I l+XOR 
Y0R = X ( 2 >+YOR 
ZB=CMPLX (-flOT»Oo ) 

ZT-CMPLX (TOP .Oo ) 

COR= ( - o 25 t-o3) 

NC= 16 

IF (A0S<ANGOHNE*9Oo ) GO TO 10 

c vertical y-axis 

ZB = < 0t> 0 1 0 )*Z8 
ZT =(Oo 9 1 0 )*ZT 
COO (-.6«0p ) 

NC= 1 5 

C DRAW LINE FOR THE AXIS 

10 CALL CPLOT ( ZT * 3 ) 

CALL CPLOT ( ZB ♦ 2 ) 

K=BOT 
L-TOP 
N= 1 +K+L 

5--FL0AT (K 1 *SCF 

H=ZT/TOP 

2B r — FLOAT (K)*H 

ZT=ZB+COR 

OO 20 I = I * N 

C DRAW HATCH MARK 

CALL CSYMBL (ZB^NCp-l) 

B=S+FL0AT ( I - l )*SCF 
ENCODE (I0.30.A) B 
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label axis 

AY 

430 


call CSYMBL <ZT*A*4t 

AY 

440 


ZB=2B+H 

AY 

450 

20 

ZT=ZT+H 

AY 

460 


SF-SPO 

AY 

470 


SJZF=51Z0 

Ay 

400 


ANG- ango 

AY 

490 


X0R = Y ( 1 ) 

AY 

50 0 


Y0R = Y < c* ) 

AY 

51 0 


RETURN 

ay 

520 



AY 

530 

30 

FORMAT <F4 » 1 ) 

AY 

54 0 


END 

AY 

550 
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Figure 1.- Illustration of fundamental parameters. 



Figure 2,- Variation of empirical trailing-edge deviation point with slope, 
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Figure 3.- Typical empirical modifications to aft pressure distribution. 
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(a) Boundary-layer characteristics; upper surface; x/c = 0.95. 




(b) External flow characteristics. 

Figure 6.- Variation of selected quantities with Reynolds number. M = 0.759; a = 0.95°. 
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(a) Present analysis method. (b) Analysis method of reference 13. 

Figure 10.- Effect of Mach number on pressure distributions for a Korn supercritical airfoil. 
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Figure 14.- Drag divergence boundary for a Korn supercritical airfoil. 
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KORN AIRFOIL (THEOR COORD VI [TH AXIS ROTATED 0*12 DEG) 



IF [X - 40 ICY 3 3 £P = - 1D MXN ” 160X32 

Figure 20.- Sample of CalComp plot generated 
by computer program. 
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IFIX = 37; Cj = 0.730 

IFIX = 41; C t = 0.797 
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Figure 21.- Effect of IFIX on pressure distribution for 
a typical supercritical airfoil. M = 0.760; 

R = 7.66 x 10 6 ; O! = 0.00°. 



